-Цитата от твердый знак

ребят с паскалем поможете?

Даны целые a и b. a>b, Определить результат целого деления a на b не используя div

-

program...
var a,b:integer; c:real;
begin
writeln('vvedite a,b');
read(a,b);
if a>b then begin
c:=a/b;
writeln(c);
end
else
writeln('0');
end.

вот что пезднул
вроде работает, но отладитть помогите, например после ввода данных обратно в меню набора программы(хз как оно называется) вылетаешь
а когда пишется ответ то выдает число и за ним 0000000000.Е+00
знаю что можно эту хуйню убрать, только как?

Исправь:

Код:

writeln(c:1:1);

и поставь перед end.

Код:

readln;

Зачем делать проверку a > b, если из условия => a > b?