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