Hogy kell 1 ilyen programot megírni pascalba?

Hát elkezdtem a programot gondoltam h ez nem nehéz és használtam 1 i változót.If-el nekiindultam h ha i=(´alma´)then writeln(´piros´).Miután így nem sikerült mással próbálkoztam(bár meg vagyok győződve h ezzel kell)Majd while-al is megpróbáltam ugyan ezt kissebb nagyobb változtatásokkal,de v az egész ötlet rossz v mindig elrontok vmit.

Ez nem a házi feladatom félreértéss ne essék,csak magamnak próbálgatok összedobni itt ott pár dolgot.Még nagyon kezdő vagyok-e téren.

program alma;

var nev:string;

begin

write('add meg a gyumolcsnevet: ');

readln(nev);

writeln('piros');

így sikerül.És ha mondjuk már azt szeretném kiírni h ha alma akkor azt írja h piros és ha azt írom h körte akkor sárga,de ezt 1 programon belül?

readln;

end.

Nah sikerült megoldanom ezt a hatalmas feladatot! :D

Kössz a válaszadóknak.