II. Написать программку, которая подсчитывает: 1) периметр квадрата, площадь которого равна

Напишите пожалуйста на языке Паскаля.

Var  n, a, s: real; 
i: integer;
label 1, 2, 3, 4;
begin 
1: 
Writeln('1)Периметр квадрата'); 
Writeln('2)Площадь равностороннего треугольника');
Write('Ваш выбор gt;gt;gt; '); 
Read(n); 
Writeln('==========================='); 
if n = 1 then  
begin   
2: 
Write('Введите площадь кварата gt;gt;gt; '); 
Read(s); 
if s lt; 0 then  
begin   
Writeln('Неправильный ввод'); 
Writeln('==========================='); 
goto 2; 
end; 
a := Sqrt(s) * 4; 
Writeln('==========================='); 
Writeln('Периметр квадрата gt;gt;gt; ', a);   
goto 4; 
end 
else 
if n = 2 then 
begin   
3: 
Write('Введите периметр равностороннего треугольника gt;gt;gt; '); 
Read(a); 
if a lt; 0 then  
begin   
Writeln('Некорректный ввод');   
Writeln('==========================='); 
goto 3; 
end; 
s := (sqrt(3) / 4) * Sqr(a/3); 
Writeln('===========================');   
Writeln('Площадь равностороннего треугольника gt;gt;gt; ', s); 
goto 4; 
end 
else 
begin   
Writeln('Некорректный ввод');   
Writeln('===========================');   
goto 1; 
end; 
4: 
Writeln('==========================='); 
Writeln('1)По-новому'); 
Writeln('2)Выйти'); 
Write('Ваш выбор gt;gt;gt; '); 
Read(n); 
Writeln('===========================');
if n = 1 then   
goto 1 ;
else   
exit;
end.