модуль 3 задание 6

Программа для нахождения целочисленного деления двух целых чисел:

program DoRatio;

var

  A,B    : integer;

  Ratio  : real;

begin

  Writeln('Введите два числа: ');

  Readln(A,B);

  Ratio:= A div B;

  Writeln('Отношение равно ',Ratio);

end.

program DoRatio - название программы. Var - раздел описания переменных.  A,B: integer - переменные А и В целого типа. Ratio: real - переменная Ratio действительного типа. Begin - начало программы. Writeln - оператор вывода на экран. ( 'Введите два числа: ') - список вывода, то что выведется на экран. Readln - список ввода. (A,B) - список ввода,с клавиатуры, вводим 2 числа. Ratio:= - оператор присваивания для переменной Ratio (ей присваивается значение A div B). A div B – опертор целочисленного деления, который отбрасывает остаток при делении. Writeln - оператор вывода. ('Отношение равно ',Ratio) - список вывода, на экране появится посчитанное отношение. End - конец программы.