---

tai tipo :

program Bevarde7;
var a,b,c:integer;
begin
WriteLn('Iveskite a');
Readln(a);
WriteLn('Iveskite b');
Readln(b);
if (a=b)
then writeln (a,'lygus',b)
else if (a>b)
then c:=a div b;
writeln (c);
readln;
end.

kai a daugiau uz b tik tada div?
O jeigu dar ne taip tai sakyk salyga dar kart :D