var    
a,b: integer;
c:real;
begin
writeln ('Ââåäèòå ÷èñëî à'); 
readln (a);
writeln ('Ââåäèòå ÷èñëî b');
readln (b);
c:=a div b;
writeln ('c=',c);
end.