Нужна помощь с задачами по информатике turbo pascal

вариант 1
задача 1
uses crt;
var n, i, k: LongInt;
begin
clrscr;
write ('Введите N =');
readln (n);
k:=0;
for i:=1 to n-1 do {число само на себя не проверяем на деление, n-1}
if ((n mod i)=0) and ((i mod 2)=0) then
begin
inc(k);
write (i:4); {вывод делителей}
end;
writeln;
writeln ('Количество делителей =', k);
readln;
end.

задача 2
uses crt;
var a, b, c: integer;
begin
clrscr;
for a:=1 to 20 do
for b:=a+1 to 20 do
for c:=b+1 to 20 do
if sqr(c) = sqr(a)+sqr(b) then
writeln (a:3, b:3, c:3);
writeln;
readln;
end.

2 вариант
задача 1
uses crt;
var n, i, summa: LongInt;
begin
clrscr;
write ('Введите N =');
readln (n);
summa:=0;
for i:=1 to n-1 do {число само на себя не проверяем на деление, n-1}
if ((n mod i)=0) and ((i mod 2)=1) then
begin
summa:=summa+i;
write (i:4); {вывод делителей}
end;
writeln;
writeln ('Сумма делителей =', summa);
readln;
end.

задача 2
uses crt;
var a, S: integer;
begin
clrscr;
write ('Введите площадь S=');
readln (S);
for a:=1 to 20 do
if ((S mod a)=0) and ((s/a)<=20 ) then writeln (a:4, S/a:4:0);
readln;
end.

ДАЛЬШЕ ЕСТЬ СМЫСЛ решать, или не пригодится больше?

1. Турбопаскаль умер, да здравствует Lazarus!
2. Мельче нельзя было?