Question

Переписать,
исправив ошибки в программе:


Program
A;


Var
2b, a1: int;


begin

read
(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.