программа на языке Pascal, которая выводит таблицу умножения для числа N:
program table;
var
  i, N, res: integer;
begin
  write ('Введите N: ');
  read (N);
  for i := 1 to N do
  begin
    res:= i* N;
    writeln(i, ' * ', N, ' = ', res);
  end;
end.