Question

1)Найдите ошибки в программе и запишите правильный вариант
Var a,b,i,x:real;
Begin
Read(x);
a:=x;
For i:=1 downto b do
Begin
i:=i+3;
a:= a/2;
x:=x+a;
End;
write(x);
End.
2) рассмотрите фрагмент программы и ответьте что будет выведено на экран
begin
n:=5; k:=2;
For a:=1 to n do
begin
x:=x*3;
Writeln(x);
End;
Write(n);
End;

Begin
n:=4; a:=n;
For x:=1 to n do
a:=a-3;
Writeln(a);
End;