Помогите с Паскалем

[Luchnik_666]

1) Напишіть програму для визначення НСД трьох натуральних чисел.
2)Паромна переправа вміщує 6 автомобілів у 2 ряди. Вирішено завантажувати у кожному ряду тільки автомобілі однієї марки, розміщуючи їх у порядку збільшення ваги відносно носової частини. Розробити програму впорядкування автомобілів на паромі
3)Щоб відібрати найсильнішу команду з 5-ти чоловік на міжнародні змаганння по з’їданню апельсинів, десять приятелів розбилися по порядку на пари і визначили найобжерливішого з двох. Скільки апельсинів зможуть з’їсти на змаганнях члени збірної команди? Чи найсильніших гравців вибрали хлопці для своєї команди? А як Ви запропонували хлопцям це зробити?

[puporev]

1)

uses crt;
var a,b,c,d:word;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
writeln;
writeln('NOD(a,b,c)=',NOD(NOD(a,b),c));
readln
end.