Program PRACT25;
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;
write('Введите длины сторон: '); Readln(a, b);
Writeln('Количество единичных квадратов: ', a + b - NOD(a, b));
Readkey;
End.

Источник: