Люди помогите пожалуйста. После завтра сор по информатике

Программка 2 написана с оплошностями.

Где конкретно?

Не закрыты составные операторы.

Поточнее первая программка*

Там два раза не закрыты скобки

А нам всегда так и дают

А это за какую четверть?

Правильный код к первой программке:
var x,y,s,sr:real;
begin
write('значение x');
read(x);
write('значение y');
read(y);
if xgt;y then
begin
S:=x+y;
Write('S=',S);
end;
if xlt;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.