Программирование. составить программы для решения : (калькулятор) 1.дана площадь квадрата.вычислить периметр этого квадрата 2.дано натуральное число х. определить,является ли оно четным и делится ли это число на 3

1.
var
  a : integer;
begin
  read (a);
  writeln (sqrt (a) * 4);
end.

2.
  var
    x : integer;
  begin
    read (x);
    if (x mod 2 = 0) then writeln ('Четное')
    else writeln ('Нечетное');
  if (x mod 3 = 0) then writeln ('Делится на 3')
  else writeln ('Не делится на 3');
end.