задачи на pascal

[vedya]

1.вывести на экран :
1
22
333
4444
55555
4444
333
22
1
и так 3 раза.
2.найти нок 2 чисел.
3.найти все совершенные числа,меньше заданного.Совершенное число равно сумме своих делителей например(6)
5.найти все трехзначные числа квадрат который оканчивается 3 цифрами составляющими исходное число.
4.Сиропчик и Лимончик покупали и пили водку,пустые бутылки сдавали и снова покупали водку пока не закончились все деньги.Сколько литров выпил каждый если у Cиропчика было X рублей а у Лимончика Y,1 бутылка 0,6 стоит 8 рублей а принимают их за 50 копеек.

[Hacker19_90]

#1

for i := 1 to 5 do
    for j := 1 to i do
    begin
        gotoxy(j, i); Write (i);
        gotoxy(j,9-i+1); Write(i);
    end;

[vedya]

_____________________

[Hacker19_90]

ну решайте еще

а не слипнится?
Где наработки ваши?