program z1;
var k:real;
i: integer;
begin
write('k = ');
readln(k);
for i:=1 to 10 do
writeln(i:2,' * ',k,' = ',k*i)
end.
Объяснение:
Ввод вещественного числа
Цикл for (с параметром)
Вывод с новой строки
