Программа которая будет складывать переменную а с числом 3. при этом пока сумма будет меньше чем 25 требуется увеличить переменную а на одну еденицу в каждом цикле
Program p1; uses crt; var a,k:integer; begin k:=0; a:=0; while k<25 do begin<br>k:=a+3; a:=a+1; writeln('Сумма ',k,' число ',a); {Можешь это убрать, если не нужно} end; write(k); end.