
ОЧЕНЬ СРОЧНО!! Составьте таблицу умножения на число n. (цикл с параметром)

Program tablica;
uses crt;
var a,b,c : integer;
begin
Writeln(Таблица умножения);
write(Введите число );
Readln(a);
for b:=1 to 10 do
begin
c:=a*b;
Writeln(a,*,b,=,c);
end;
end.
Оцени ответ