Программирование. Составить программы для решения задач: (калькулятор) 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.