Помогите составит программки Паскаль 1 и 3 задача

ты даешь очень мало баллов за такое задание

1:
/////
var
wall1, wall2: Integer;
door1, door2: Integer;
window1, window2: Integer;
a, b, c, d: Integer;
a1, b1, c1, d1:Integer;
begin
writeln('Введите длину стены');
readln(wall1);
writeln('Введите Ширину стенки стены');
readln(wall2);
writeln('Введите длину двери');
readln(door1);
writeln('Введите ширину двери');
readln(door2);
writeln('Введите длину окна');
readln(window1);
writeln('Введите ширину окна');
readln(window2);
a:=wall1 * wall2;
b:=door1 * door2;
c:=window1 * window2;
d:=a - b - c;
a1:=wall1+wall2*2;
b1:=door1 + door2*2;
c1:=window1 + window2*2;
writeln('Площадь комнаты', d);
writeln('Периметр комнаты', d);
end.

2:
/////////////
var
a, b:Integer;
begin
writeln('Введи 1 число');
readln(a);
writeln('Введи 2 число');
readln(b);
if a gt; b then
begin
a:=a*4;
b:=b+4
end;
else
begin
a:=a+4;
b:=b*4;
end;
writeln(' 1Число одинаково= ' a);
writeln('2 Число одинаково= ' b);
end;