Определите, при каком наименьшем положительном введённом значении переменной s программа выведет число s, отличающееся от введенного значения. var s, n: integer;
begin
readln (s);
n := 100;
while s - n >= 100 do
begin
s := s + 20;
n := n + 40
end;
writeln(s)
end.

Вводим 200 Вывод 220

Объяснение:

var s, n, i: integer;

begin

for i:=200 to 250 do   //Создаём цикл, который будет прогонять

begin                           // значения S от 200 до 250

   s:=i;                          // логичнее начинать i c 200 т.к. while работает

   n := 100;                 // при условии, что s- 100 >= 100

   while s - n >= 100 do

   begin

        s := s + 20;

        n := n + 40;

   end;

writeln(i, ' ',s)     // вывод всех значений от 200 до 250

end;                   // выбираем нужный

end.

end.