Программирование ветвлений с целочисленными функциями

1.

Программирование ветвлений
с целочисленными функциями

2.

1. Определение четности числа
Program Z1;
Var a: integer;
begin
Write('Введите число ');
read(a);
if a mod 2=0 then write('число четное')
else write(‘число нечетное');
end.

3.

2. Вести 2 числа. Если их сумма кратна 9, разделить
ее на 9, иначе извлечь из нее корень.
Program Z1;
Var a,b: integer; s:real;
begin
Write('Введите 1 число ');
read(a);
Write('Введите 1 число ');
read(a);
if (a+b) mod 9=0 then s:=(a+b)/9
else s:=sqrt(a+b);
Write(s);
end.