Информатика.
3 и 4 задания.

Думаю, что отдельно писать программу лишь для оператора присвоения как-то тупо, поэтому объединим с условным оператором.

№3 а) б)

var

x : integer;

begin

writeln('Введите положительное число: ');

readln(x);

if x < 0 then //условный оператор

write('Вы ввели отрицательное число!')

end.

№4 а)

var

month : integer;

begin

readln(month);

if (month = 1) or (month = 2) or (month = 12) then

writeln('зима')

else if (month = 3) or (month = 4) or (month = 5) then

writeln('весна')

else if (month = 6) or (month = 7) or (month = 8) then

writeln('лето')

else if (month = 9) or (month = 10) or (month = 11) then

writeln('осень')

else

writeln('неверно введен номер месяца');

end.

№4 b)

//давайте посчитаем количество цифр в числе

var

counter, x : integer;

begin

readln(x);

counter := 0;

while x > 0 do

begin

counter := counter + 1;

x := x div 10;

end;

write('Количество цифр: ',counter);

end.

Что-то я сложные программы какие-то написал, если надо попроще, то напиши в комменты)