7.2.. Na ekranu ispisati "Otkucajte nadimak pjesnika Jovana Jovanovica". Ako se otkuca Zmaj ili ZMAJ ispisati "ODLICNO", inače na druge odgrovore ispisati "ISPRAVAN ODGOVOR JE ZMAJ".

Opis rješenja:

Listing programa:

PROGRAM P07211063;
VAR                      { deklarisanje promjenljivih }
  x:string;              { string promjenljiva }
BEGIN
 WRITE('Otkucajte nadimak pjesnika Jovana Jovanovica ');   { naslov }
 READLN(x);                             { ulaz - ucitavanje vrijednosti }
 IF (x='Zmaj') OR (x='ZMAJ') THEN       { ako je ucitan Zmaj ili ZMAJ, tada }
  WRITELN('ODLICNO')                    { ucitan Zmaj ili ZMAJ - ispis }
 ELSE                                   { inace }
  WRITELN('ISPRAVAN ODGOVOR JE ZMAJ');  { ispis }  
  READLN;
END.

Ispis na ekranu:

Index