Помогите с дз по информатике

1)
Program P1;
uses crt;
var a, b, s: real;
begin
clrscr;
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
if a<b then begin
writeln ('2-ое число больше.');
a:=sqr (a);
b:=b/2;
writeln (a);
writeln (b);
end else if a>b then begin
writeln ('1-ое число больше');
a:=a/2;
b:=sqr (b);
writeln (a);
writeln (b);
end else begin
writeln ('Введенные числа равны.');
s:=a+b;
writeln ('Их сумма: ', s);
end;
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.

2)
Program P2;
uses crt;
var a, b, c, d, min, max, s, s2: real;
begin
clrscr;
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
write ('Введите 3-е число: ');
readln (c);
write ('Введите 4-ое число: ');
readln (d);
if (a<b) and (a<c) and (a<d) then min:=a;
if (b<a) and (b<c) and (b<d) then min:=b;
if (c<a) and (c<b) and (c<d) then min:=c;
if (d<a) and (d<b) and (d<c) then min:=d;
if (a>b) and (a>c) and (a>d) then max:=a;
if (b>a) and (b>c) and (b>d) then max:=b;
if (c>a) and (c>b) and (c>d) then max:=c;
if (d>a) and (d>b) and (d>c) then max:=d;
s:=min+max;
s2:=sqr (s);
writeln ('Ответ: ', s2);
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.

Остальные см. в комментариях к этому ответу.