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