Помогите, пожалуйста... Очень нужно.Только не кидайте решения из Интернета, они не подходят.

Полоска бумаги имеет размеры а*b. Каждый раз от неё отрезается квадрат максимального размера до тех пор, пока не получится квадрат. Сколько квадратов получится? Программе даны числа а и b(1<=a,b<=10^9).
Необходимо решение на языке Pascal

Спасибо, но пишет, что частичное решение... (Превышено максимальное время работы). Может, подскажете в чем проблема?

Потому что это самый очевидный и простой, но не самый быстрый способ. Попробуй это.

var a,b,t,n: integer;beginreadln(a,b); WHILE (b<>0) DO begin t:=a mod b; inc(n, a div b); a:=b; b:=t; end;writeln(n);end.

Спасибо огромное