Решите пожалуйста Информатика Паскаль

1)
program perviynomer;
var
a,b:integer;
begin
write ('Введите 1-ое число: ');
ReadLn(a);
write ('Введите 2-ое число: ');
ReadLn(b);
if agt;b then
writeln('Задачка решена ',a+b)
else
writeln('Задача решена ',a*b);
readln;
end.
2)
program vtoraya;
var
a:integer;
begin
write('Введите число: ');
ReadLn(a);
if (agt;=-5) and (alt;=3) then writeln('Число ', a,' лежит в данном промежутке') else
WriteLn('Число ', a,' не лежит в данном интервале');
readln;
end.
3)
program tretya;
Var
X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if Xgt;0 then
if Ygt;0 then Write('1-ая четверть')
else Write('2-ая четверть')
else
if Ylt;0 then Write('3-я четверть')
else Write('Четвёртая четверть')
End.
5)
program chetvertaya;
uses crt;
var
a,b,c:real;
begin
Write('Введите 1-ое число: ');
readln(a);
write('Введите 2-ое число: ');
readln(b);
Write('Введите 3-ие число: ');
readln(c);

if a gt; b then
if b gt; c then writeln('Сумма величайших: ',a+b)
else writeln('Сумма наивеличайших: ',a+c)
else if a gt; c then writeln('Сумма величайших: ',a+b)
else writeln('Сумма наивеличайших: ',b+c);
readln;
end.