Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / p04

program p04;
uses crt;
var i:integer;
begin
 for i:=40 to 80 do
   begin
    write(chr(i)); writeln ('  -',i);
    i:=i+1;
   end;
end.