itb.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 13 行

program itb;
var nr:integer;
begin
write(' daca mergi cu mijlocul de transport nr ');
readln(nr);
case nr of
1..50:writeln('calatoresti cu tramvaiul');
51..100:writeln('calatoresti cu troleul');
101,102,103:writeln('calatoresti cu ferrari');
104..110,120..130,140:writeln('calatoresti cu caleasca')
else writeln('mergi pe jos');
end;
end.