Помогите решить на Паскале!!!

вар 2:
1) var
a, b, c: integer;
s: real;
begin
a := Random(10);
b := Random(10);
c := Random(10);
s := (a + b + c) / 3;
Writeln('Число a >>> ', a);
Writeln('Число b >>> ', b);
Writeln('Число c >>> ', c);
Writeln('==================');
Write('Среднее арифметическое >>> ', s);
end.
2)var
a, b, c: integer;
function IsExist(a, b, c: integer): boolean;
begin
IsExist := (a < b + c);
end;
begin
Write('Введите сторону a >>> ');
Readln(a);
Write('Введите сторону b >>> ');
Readln(b);
Write('Введите сторону c >>> ');
Readln(c);
writeln('=======================');
if IsExist(a, b, c) then
if IsExist(b, c, a) then
if IsExist(c, a, b) then
Write('Треугольник существует!')
else
Write('Треугольник не существует!')
else
Write('Треугольник не существует!')
else
Write('Треугольник не существует!');
end.

вар 3:
1)var x,y:real;
begin
Write('Введите число x >>> ');
Readln(x);
Writeln('======================');
y:=exp(ln(X) * 6);
Write('x^6 >>> ',y);
end.

2)var x,y,m:integer;
begin
Write('Введите число x >>> ');
Readln(x);
Write('Введите число y >>> ');
Readln(y);
Writeln('======================');
m:=Max(x+y,x*y);
write('max(x+y,x*y) >>> ',m);
end.

Вар 1:
1) Не хватает самого выражения (или я тупой)
2)var a,b,s:integer;
begin
Write('Введите оценку по Физике >>> ');
Readln(a);
Write('Введите оценку по информатике >>> ');
Readln(b);
s:=a+b;
writeln('====================================');
Writeln('Сумма оценок >>> ',s);
if s>7 then
Write('Молодец!')
else
write('Подтянись!');
end.

P.S ПЕРЕВОРАЧИВАЙ КАРТИНКИ!!!!

О, снова любители перевернутых фотографий подтянулись))