Verified answer

Ответ:

var

 a,c: integer;

begin

 a := 5;

 c := 2;

 a := a * 2 - 3;

 c := c + 3;

 if c >= 25 then begin

     a := a * 2 - 3;

     c := c + 3;

 end

 else writeln(a, c);

end.