1. записать высказывания на языке логики. если я устал или голоден, я не могу заниматься. студент сдаст экзамен, если он выучил материал, или ему друг. если завтра не будет дождя и будет тепло, то можно идти купаться или загорать.

X = устал
Y = голоден
Z = могу заниматься

(X || Y) -> !Z

X = сдаст экзамен
Y = выучил материал
друг

X -> (Y || Z)

X = будет дождь
Y = будет тепло
Z = идти купаться
F = идти загорать

(X & Y) -> (Z || F)

1задача. Сумма цифр в 4-зн. числе
1) Начало
2) Ввод 4-значного числа N. Проверка, что 999 < N < 10000.
3) Вычисление отдельных цифр. (Далее [A] - это целая часть числа A).
3.1) A4 = [N/1000] (тысячи)
3.2) A3 = [ (N - A4*1000)/100) ] (сотни)
3.3) A2 = [ (N Mod 100)/10 ] (десятки, N Mod 100 - это остаток от деления N на 100)
3.4) A1 = N Mod 10 (единицы)
4) Сумма S = A1+A2+A3+A4
5) Вывод S
6) Конец.

2 задача. Двузначное число палиндром - это число, которое читается с конца и сначала одинаково. Для двузначных чисел это значит, что число состоит из двух одинаковых цифр.
1) Начало
2) Цикл по N от 10 до 99
3) Вычисление цифр.
3.1) A2 = [N/10] (десятки)
3.2) A1 = N Mod 10 (единицы)
4) Если A1 = A2, то Вывод N.
5) Конец цикла по N
6) Конец.

var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do     
begin           
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then           
begin             
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do                   
begin                         
write (s[i]);                         
i:=i+1;                   
end;             
writeln;           
end;         
i:=i+1;     
end;
readln;
end.