Составьте программу которая выводит на экран 10 строк таблицы умножения на 2​ в pascal abc

ответ:

program abc;

const n=10;

const c=2;

var a, k: integer;

i: integer;

begin

a: =0;

for i: =1 to n do begin

a: =a+1;

k: =a*c;

writeln(a,'*',c,'=',k)

end;

end.

ответ:

var i: integer;

begin

for i: =1 to 10 do writeln(i: 2,' * 2 = ',i*2)

end.