1 задача.

Даны 3 числа (a, b, c). Возвести в квадрат те, которые меньше 5 и в куб меньше 5

2 задача. Даны 4 числа определить колличество отрицательных

3 задача. Дано двухдверное число Определить одинаковы ли его цифры.

1)

program ez_1;

var a, b, c, i, x, g: integer;

begin readln (a, b, c) ; if a > 0 then a : = a * a else a : = a * a * a; if b > 0 then b : = b * b else b : = b * b * b; if c > 0 then c : = c * c else c : = c * c * c; writeln (a) ; writeln (b) ; writeln (c) ; end.

2)

program ez_2;

var a, b, c, i, x, g: integer;

begin readln (a, b, c, g) ; if a < 0 then x : = x + 1; if b < 0 then x : = x + 1; if c < 0 then x : = x + 1; if g < 0 then x : = x + 1; writeln (x) ; end.

3) как я понял "двухдверное число" это число из 2 знаков (двухзначное).

program ez_3;

var a, b, c: integer;

begin readln (a) ; c : = a mod 10; b : = a div 10; if c = b then writeln ('Числа равны') else writeln ('Числа не равны') ; end.