программа которая будет складывать переменную а с числом 3. при этом пока сумма будет меньше чем 25 требуется увеличить переменную а на одну еденицу в каждом цикле

program p1;uses crt;var a,k:integer;begink:=0;a:=0;while k<25 do begink:=a+3;a:=a+1;writeln('Сумма ',k,' число ',a); {Можешь это убрать, если не нужно}end;write(k);end.