Информатика - Если указанная сторона квадрата больше 6см, то вычислить его периметр, иначе вычислить его площадь?

program kvadrat;

var

 a : integer;

Begin

 write('ввести длину стороны квадрата = ');

 readln(a);

 if a > 6 then writeln('периметр P=', a*4) else writeln('площадь S=', a*a);

end.

Объяснение:

программа протестирована на PascalABC.NET

было бы здорово в задании указывать на каком языке программирования вам нужен ответ

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.