Тебе просто надо каждое выражение подставить 3 строчки значений и сравнить с F ( использую таблицы истиности которые надо выучить)
Решение смотри во вложении.
var
i,a, cmax: integer
begin
cmax:= -999;
for i:= 1 to 2 do
begin
readln (a);
if (a mod 2=0) and (a> сmax) then
cmax:= a;
End;
if cmax <> -999 then write (cmax)
Else write ('четные числа отсутствуют')
end.
Program month;
uses CRT;
var a:integer;
Begin
ClrScr;
write('vsatvte chislo');
read(a);
If (a=12) or (a=1) or (a=2) then write('zima')
else if (a=3) or (a=4) or (a=5) then write ('vesna')
else if (a=6) or (a=7) or (a=8) then write ('leto')
else write('oseni');
repeat until keypressed;
end.