Решить. как это делать не понимаю. 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.
var i:integer;
begin i:=-10;
while i<=20 do
begin write (i,' ');
i:=i+5;
end;
end.