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

Question

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


Program
A;


Var
2b, a1: int;


begin

read
(a1)

2b := a1 + 5;


a1 := 2b : 2;


write
(2b, a1)


end.

Comments

program A;var 2b,a1: integer;begin read (a1); for 2b:=a1 + 5;for a1:=2b : 2;write(2b, a1);end;

---

После end - точка.

Answer 1

ProgramA;

Var  b, a1: real;

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

a1 := b /2;

write (b, a1);

end.