Ciao a tutti sono nuovo in questo sito fantastico , ho scritto un programmino con Dev pascal , ma al momento di compilarlo mi da 3 errori , ecco il rpogramma , mi rivolgo a voi esperti a finchè possiate dirmi dove sbagli , grazie a tutti.
Program domande;
uses crt;
var a,b:integer;
parola:string[40];
begin
writeln('seleziona una tra le domanda 1 , 2 o 3');
readln(a);
case a of
1:writeln(' chi ha scritto la Divina commedia ?:');
readln(parola);
if parola='Dante Alighieri' then
writeln('esatto');
else
begin
writeln(' Sbagliato la risposta e" Dante Alighieri ');
2:writeln('quanto fa 1+3 ?:');
readln(b);
if (b=4) then
writeln('esatto')
else
begin
writeln('sbagliato la risposta e" 4');
3:writeln('la capitale della Francia e"?:');
readln(parola);
if parola='Parigi' then
writeln('esatto');
else
begin
writeln('sbagliato la risposta e " Parigi');
end;
end;
end;
readln
end.
|