Нужно сделать постановку задачи, описать переменные, и написать код программы. Даны два числа H и D. Если первое число кратно второму, то вывести на печать частное от деления первого на второе, в противном случае – остаток от деления первого на второе.

program shet;

uses crt;

var h, d: integer;

begin

writeln('Enter H');

readln(h);

writeln('Enter D');

readln(d);

if (h mod d = 0) then writeln(h div d)

else writeln(h mod d);

end.

Объяснение:

program shet;

uses crt;

var h, d: integer;  // создаем переменные

begin

writeln('Enter H');

readln(h); // считываем к клавиатуры h

writeln('Enter D');

readln(d);  // считываем с клавиатуры d

if (h mod d = 0) then writeln(h div d) // если h делится на d без остатка печатаем частное от деления

else writeln(h mod d); // иначе печатаем остаток от деления

end.