Переписать, исправив ошибки в программе: program a; var 2b, a1: int; begin read (a1) 2b : = a1 + 5; a1 : = 2b : 2; write (2b, a1) end.

ProgramA;

Var  b, a1: real;

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

a1 := b /2;

write (b, a1);

end.