Напишите программу в турбо паскале, которая выводит на экран фразу "всем, ! " 80 раз в таблице из 20 строк и 4 столбцов.

Uses CRT;
ClrScr;
var
  i, j: integer;

begin
  for i := 1 to 20 do
  begin
    for j := 1 to 4 do Write('Всем, привет!   ');
    Writeln
  end
end.