Question

с клавиатуру вводятся 2 целых числа.наЙди целую часть при делении первого числа на другое!

Answer 1

uses crt;
var
a,b: integer;
c: real;
begin
read (a,b);
c:= a/b;
writeln (trunc (c));
readkey;
end.