вывести на экран первые 10 натуральных чисел, кратных заданому числу а, вводимому пользователей

program zz1;

var a, i:integer; / /заводим переменные

begin

write ('введите заданное число а ');

read (a); / /вводим заданное число с клавиатуры

for i:=1 to 10 do / /организуем цикл на десять повторений

write (a*i,' '); / /выводим ответ в строчку через пробел

end.