Diagrama de sintaxa

Program P3;
var n:integer;
begin
writeln('Introduceti un numar');
readln(n);
case n of
12,1,2: writeln('Iarna');
3,4,5: writeln('Primavara');
6,7,8: writeln('Vara');
9,10,11: writeln('Toamna')
else writeln('Ati introdus un numar gresit!');
end;
readln;
end.
Niciun comentariu:
Trimiteți un comentariu