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

Var  n, a, s: real;   i: integer; label 1, 2, 3, 4; begin  1:   writeln('1)периметр квадрата');   writeln('2)площадь равностороннего треугольника'); write('ваш выбор > > > ');   read(n);   writeln('===========================');   if n = 1 then   begin    2:   write('введите площадь кварата > > > ');   read(s);   if s < 0 then    begin    writeln('некорректный ввод');   writeln('===========================');   goto 2;   end;   a : = sqrt(s) * 4;   writeln('===========================');   writeln('периметр квадрата > > > ', a);     goto 4;   end  else  if n = 2 then  begin    3:   write('введите периметр равностороннего треугольника > > > ');   read(a);   if a < 0 then    begin    writeln('некорректный ввод');     writeln('===========================');   goto 3;   end;   s : = (sqrt(3) / 4) * sqr(a/3);   writeln('===========================');     writeln('площадь равностороннего треугольника > > > ', s);   goto 4;   end  else  begin    writeln('некорректный ввод');     writeln('===========================');     goto 1;   end;   4:   writeln('===========================');   writeln('1)заного');   writeln('2)выйти');   write('ваш выбор > > > ');   read(n);   writeln('==========================='); if n = 1 then    goto 1 ; else    exit; end.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.