Напишите программку, которая получает два целых числа и обретает их творение,

var
a,b,p,i,z:integer;
begin
writeln(a);
readln(a);
writeln(b);
readln(b);
z:=b;
if blt;0 then z:=-b;
for i:=1 to z do
begin
p:=p+a;
end;
if blt;0 then p:=-p;
writeln(p=,p);
end.
2-ой ВАРИАНТВЫПОЛНЕНИЯ Программки:
var
a,b,x,y,z:integer;
begin
writeln(Введите 1-ое число);
readln(a);
writeln(Введите 2-ое число);
readln(b);
z:=b;
if blt;0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if blt;0 then x:=-x;
writeln(Творенье чисел = ,x);
end.