Вывести ** экран английский алфавит (ПАСКАЛЬ). Заранее спасибо

Question

Вывести на экран английский алфавит (ПАСКАЛЬ). Заранее спасибо

Answer 1

Вот программа:


uses Crt;
  var i: integer;

begin
  ClrScr;
  for i:=65 to 90 do
  Write(Chr(i):4);
  WriteLn; WriteLn;
  for i:=97 to 122 do
  Write(Chr(i):4);
  WriteLn;
  ReadLn;
end.