Срочно, ребят! Меня два учителя проверять будут! 1 я уже сделала, а как другие делать без понятия!( В проге Pascal ABC

1)program gt;
var n:integer;
begin
readln(n);
if(n>17)then writeln('YES')else writeln('NO');
end.
2)  program gt;
var x,y:real;
begin
readln(x);
if(x>0)then y:=x-2;
if(x<0)then y:=x*x;
writeln(y);
end.
3)
program gt;
var n:integer;
begin
case n of
1:  writeln('RED');
2:  writeln('orange');
3: writeln('yellow');
4:....
5:...
6:...
7:....
end;
end.
5Баллов слишком мало.