Question

Дописать фрагмент программы, чтобы получить ответ, чему равно значение а и b?


a:=10;
b:=15;
if a>b
then b:=a+b;
a:=a+b
(Допишите начало и конец) пожалуйста очень срочно нужно!!!!

Answer 1

var a,b:integer; 
begin

a:=10;
b:=15;
if a>b  then b:=a+b;
a:=a+b;

writeln(a);

writeln(b);

end;