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

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