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.