Вычислить произведение 2-ух натуральных чисел используя лишь операцию сложения в паскале

я, в основном, программы на с++ пишу, но из школы про паскаль кое-что помню (в смысле, попытаюсь написать на паскале).

program a1;

var a,b,c,i: integer;

begin

write('enter the a: ');

read(a);

writeln('enter the b: ');

read(b);

с: =0;

for i: =1 to a do

        c: =c+b;

writeln('a*b=',c: 5: 0);

end.

объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). например, a=5, b=3. переменную с=0 будем складывать с b.

i=1          c=5+0;

i=2          c=5+5;

i=3          c=10+5;     //c=15

вот и есть ответ: 5*3=15.

Язык  python #сформируем  строку a  =  ''.join(map(str, range(1, #а теперь вывод всего что надо print  "кол-во 0: ",  a.count(''0') print "кол-во 1: ", a.count(''1') print "кол-во 2: ", a.count(''2') print "кол-во 3: ", a.count(''3') print "кол-во 4: ", a.count(''4') print "кол-во 5: ", a.count(''5') print "кол-во 6: ", a.count(''6') print "кол-во 7: ", a.count(''7') print "кол-во 8: ", a.count(''8') print "кол-во 9: ", a.count(''9') print "кол-во символов: ", len(a)

Program test;   uses crt;   var i,j: integer;   a: array[1..20,1..20] of char;   begin   clrscr;   for i: =1 to 20 do  begin   for j: =1 to 20 do   begin  if(i=1)or(i=20)then begin  textcolor(red);   if(j> 1)and(j< 20)then write('-');   end; if(j=1)or(j=20)then begin   textcolor(red);   write('|');   end;   if(i< > 1)and(i< > 20)and(j< > 1)and(j< > 20)then begin  textcolor(yellow);   write('/');   end;   end;   writeln;   end;   end.