Напишите, пожалуйста, программу для этой блок-схемы

Спасибо =)

Пожалуйста.

// В программе вычисляется НОД(a,c)var a,c:integer;beginreadln(a,c);while not (a=c) do  if a>c then a:=a-c else c:=c-a;writeln(a);end.Пример:75 10025