Pascal ABC Цикл for to do Задание в файле

16.03.2017

Без рубрики

Помогите пожалуйста

VAR
   i, j: Integer;
BEGIN
   Write(‘ ‘);
   for i := 1 to 9 do Write(i,’ ‘); Writeln;

for i := 1 to 9 do begin
      Write(i,’ ‘);
      for j := 1 to 9 do
         if (i*j > 9) then Write(i*j,’ ‘)
         else Write(i*j,’ ‘);
      Writeln;
   end;
END.