Даны 2 целых числа х и у. Вывести на экран монитора остаток от деления числа х на число у. Числа х и у ввести с клавиатуры.

program zz1;

var x, y, c:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

c:=x mod y; / / находим остаток отделения числа х на у

writeln (' остаток отделения числа ', x,' на ', y,' = ', c); / / выводим ответ

end.