Question

написать программу которая делит любое число на х срочно пожалуйста

Answer 1

Каков вопрос - таков ответ:
var x,y:integer;
begin
write('x = ');
readln(x);
y:=random(1000)+1;
writeln('Делю число ',y,' на ',x,': ',y,'/',x,' = ',y/x);
end.

Пример:
x = 5
Делю число 595 на 5: 595/5 = 119