ВЫВЕСТИ ** ЭКРАН ТАБЛИЦУ УМНОЖЕНИЯ ** 5

Question

ВЫВЕСТИ НА ЭКРАН ТАБЛИЦУ УМНОЖЕНИЯ НА 5

Answer 1

Var i, j:integer;
begin
  writeln('Таблица умножения на 5');
  for i:=1 to 10 do
  begin
    writeln(i, ' умножить на 5 = ', i*5);
  end;
 
end.