Giammy Правильный код к первой программе:
var x,y,s,sr:real;
begin
write('значение x');
read(x);
write('значение y');
read(y);
if x>y then
begin
S:=x+y;
Write('S=',S);
end;
if x<y then
begin
Sr:=(x+y)/2;
write('Sr=',Sr);
end;
end.

(БЛОК-СХЕМА НА ФОТО)

2)
var x:integer;
begin
write('Значение x: ');
read(x);
case x of
9..11: writeln('Осень');
3..5: writeln('Весна');
1,2,12: writeln('Зима');     // Уберешь эту строку если тебе нужно только для осени и весны.
6..8: writeln('Лето');       // Уберешь эту строку если тебе нужно только для осени и весны.
end;
end.