Пожалуйста помогите! Найдите исправьте все оплошности, допущенные в этой программке.Запишите

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