Question

Пожалуйста помогите! Найдите исправьте все ошибки, допущенные в этой программе.Запишите программу без ошибок. 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.