Пожалуйста посчитайте решить 1 задание! Прошуу

Var
   A:integer;
Begin
ReadLn(A);
For A:= 1 to A do
    Write(A,' ')
End.



Var
   A,B,P:integer;
Begin
ReadLn(A,B);
P:=0;
For A:= 1 to A do
    P:=P+B;
Write(A,'*',B,'=',P)
End.