Question

Переписать, исправив ошибки в программе:Program A;Var 2b, a1: int;beginread (a1) 2b := a1 + 5; a1 := 2b : 2;write (2b, a1)end.

Answer 1

ProgramA;

Var  b, a1: real;

begin
read(a1)  ;
b := a1 + 5;

a1 := b /2;

write (b, a1);

end.