var i, n: integer;begin readln(n); for i := 1 to 10 do begin writeln(n,' x ', i, ' = ', n*i); end;end.
Решение на фото.
Стараюсь быть лучшим для вас!