itb.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

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.