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;
USES 
  WinCrt;
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 }
END.

Ispis na ekranu:

Index