написать программу, которая находит целую часть и остаток от деления целого числа на 2

если что pascal

vara,b: integer;begin read(a);b:=a mod 2;a:= (a-b) div 2;write ('Остаток от деления: ',b,' Целая часть: ',a);end.