Нужно завтра сдавать лабораторную. Я не сделал 3 задания и не знаю, как их делать

[bwitcher]

Люди, выручайте, пожалуйста. Не знаю, что делать. Завтра сдавать надо лабу, а ее доделать не могу...(((
1. В последовательности чисел сравнить, что больше - сумма положительных или произведение отрицательных. Признак конца последовательности – ввод 0 (ноль)
2. Найти все трехзначные числа, сумма цифр которых равна данному целому числу
3. Написать программу, которая вычисляет наибольший общий делитель двух целых чисел (использовать while).
Вот 3 задания. Кто чем может...

[DoDge_VipeR]

1)

var a,s,p:integer;
begin
s:=0;
p:=1;
a:=1;
while a<>0 do
begin
readln(a);
if a>0 then s:=s+a;
if a<0 then p:=p*a;
end;
if s>p then writeln('> сумма')
else if s=p writeln('они равны')
else writeln('> произведение');
readln;
end.

2)

var a,i:integer;
begin
readln(a);
for i:=100 to 999 do
if i mod 10 + i mod 100 div 10 +i div 10=a then write(i:5);
readln;
end.

3)

var x,y:integer ;
r:integer;
begin
readln(x);
readln(y);
while y<>0 do begin
r:=x mod y; x:=y; y:=r;
end; writeln(x); readln ;end.

[bwitcher]

Блин, че-то не пашет у меня...

[bwitcher]

Если можно, распишите полностью, от начала до конца, я просто торможу нереально))
Спасибо и на этом, конечно, огромное, но если можно...)))

[romec1]

а может за вас еще скомпилировать надо и зачет пойти сдать? конец учебного года, а в книжечку так никто и не потрудился заглянуть...

[Ikari Shinji]

К каждой программе в начале дописываешь
uses Crt;