Program z_3;
var a,b:integer;
begin
a := 5;
b := a + 2;
a := (a + 2)*(b-3);
write('a=',a,', b=',b);
end.
Проверка работы программы:
a=5;
b=5+2=7;
a=(5+2)×(7-3)=7×4=28;
Верно: a=28; b=7
Program z_3;
var a,b:integer;
begin
a := 5;
b := a + 2;
a := (a + 2)*(b-3);
write('a=',a,', b=',b);
end.
Проверка работы программы:
a=5;
b=5+2=7;
a=(5+2)×(7-3)=7×4=28;
Верно: a=28; b=7