Задача на циклы, пожалуйста, напишите программу Составьте программу определения…

Используем стандартный алгоритм нахождения Нод.Program n1; Uses CRT; Var a,b,c: integer; beginClrScr; Writeln ('Vvedite A i B'); Readln (a,b); while b<>0 do begin c: =a mod b; a: =b; b: =c; end; writeln ('NOD=',a); readln end.