1. Составьте программу нахождения наибольшего общего делителя трех чисел,…

function nod (a,b: integer): integer; begin if a mod b<>0 then nod: =nod (b,a mod b) else nod: =b end; var a,b,c: integer; begin readln (a,b,c); writeln (nod (nod (a,b) ,c); readln end. p.s. Я не уверен что это правильно