Var a,b,d,m:integer;
begin
writeln('Введите два числа:');
write('a = '); readln(a);
write('b = '); readln(b);
d:=a div b;
m:=a mod b;
writeln('D = ',d);
writeln('M = ',m);
end.
Пример:
Введите два числа:
a = 16
b = 6
D = 2
M = 4
1) 1
2) 0
3) 1
4) 1
5) 1
если нужны пояснения в личку потому как муторно все писать, лучше словами объяснить
Для того, чтобы определить, является ли фигура параллелограмом, нужно знать все 4 её точки