Программа вводит два целых числа и выводит частное от деления 1-го на 2-е
Program Input_Output;
var
n1,n2 : integer; {n1 и n2 — вводимые целые}
x:real; {х -результат}
begin
Write('n1='); {Сообщаем с вводе n1}
ReadLn(n1); {Вводим n1}
Write('n2 ='); {Сообщаем с вводе n2}
Readln(n2); {Вводим п2}
x:= n1/n2;
Writeln(n1/n2);
end.