1)var a,b,c: word;
begin
readln(a);
readln(b);
readln(c);
while a<=b do begin
write(a,' ');
a := a+c;
end;
writeln;
end.
2)
2
3
4
5
6
7
8
Var i:integer;
p:longint;
Begin
p:=1;
For i:=8 to 15 do
p:=p*i;
writeln('Произведение: ',p);
End.
