Помогите решить практическую по информатике ???

.

Program NOD; var A, B, C, X, Y, NOD: integer; begin writeln('Введите значения A, B, C'); readln(A,B,C); X := A; Y := B; while A 0 do begin NOD := A; A := B mod A; B := NOD; end; NOD := B; A := X; B := C; while A 0 do begin NOD := A; A := B mod A; B := NOD; end; writeln('НОД трёх чисел равен - ', NOD); end. Задача 2. program HexArea; var a: real; begin writeln('Введите известную размерность стороны правильного шестиугольника:'); readln(a); writeln('Площадь такого шестиугольника равна: ', 6*(a*a*sqrt(3))/4); end.