Решить задачу, используя процедуру, которая отсекает дробную часть числа в Паскале, пожалуйста)

Program lolka;
Procedure drobChast(x,y:integer; Var z:integer);
Begin
z:=x div y;
  writeln(Ответ = , z);
End;
Var x,y,z:integer;
Begin
  Writeln(Введите число, которое хотите поделить);
  Readln(x);
Writeln(На что поделить?);
  Readln(y);
drobChast(x,y,z);
End.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!