Написать программу которая запрашивает 2 целых числа. Если 1 число больше чем второе, то необходимо вывести на экран целую часть от деления первого числа на второе, а иначе нужно вывести остаток.

program zadacha;vara,b:integer;begin write ('Введите 1-ое число: '); readln(a); write('Введите 2-ое число: '); readln(b); if a>b then writeln (a div b) else writeln(a mod b);end.