Question

Дано вещественное число а.составить программу которая вычисляет целую часть числа а и выводит результат.

Answer 1

Var x:integer;
begin
  readln(x);
  writeln(Int(x));
end.