Помогите решить. Как это делать не понимаю.

Program m21;
var i:integer;
begin i:=-10;
while i<=20 do
begin write (i' ');
i:i+5;
end;
end.

Program m22;
var a,b,c,p,h :integer;
begin
writeln ('Введите A,B,h') ;
readln (a,b,h) ;
p: =1;
c: =a;
while c,=b do
begin
p: =p*c ;
c: =c+h ;
end ;
wrineln (p) ;
end.