Текст
программы
Program diag;
uses crt;
var
a, b: word;
Function Nod(x, y: word): word;
Begin
If (x <> 0) then
Nod := Nod(y mod x, x)
else Nod := y;
End;
BEGIN
ClrScr;
writeln('Введите длины сторон прямоугольника: ');
write('a = '); Readln(a);
write('b = '); Readln(b);
writeln;
Writeln('Количество единичных квадратов: ', a + b - NOD(a, b));
Readkey;
END.