var a,b,c,g:integer;
begin
g:=100;
c:=5;
writeln('Введите число:',' ');
readln(a);
writeln();
writeln('Новые значения числа:');
while a<=g do begin
a:=a+c;
writeln(a);
end;
end.
var a,b,c,g:integer;
begin
g:=100;
c:=5;
writeln('Введите число:',' ');
readln(a);
writeln();
writeln('Новые значения числа:');
while a<=g do begin
a:=a+c;
writeln();
writeln(a);
end;
end.