Пожалуйста помогите! Найдите исправьте все ошибки, допущенные в этой программе.Запишите программу без ошибок.
Var a;b;c:Integer;d:real;
Begin
Writeln('b=?',b)
Readln(b);
a=10;
с:ab
Writeln(' a x b' равно' C);
d:=c div b;
writeln(d)
End.