Помогите пожалуйста дам 80 б

Помогите срочно пожалуйста (

Нет немножко основное сделайте

Не много

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var (a,b):=ReadlnReal2; Writeln(a/b);
  var s1:=ReadlnString; var s2:=ReadlnString; Writeln(s1+s2);
  (a,b):=ReadReal2;
  if (agt;5) and (bgt;5) then Writeln(a+b) else Writeln(a-b)
end.

Пример
3.53 -1.9
-1.85789473684211
Моя
строка
Моястрока
4.13 28
-23.87

y:=(5*x*x-4)/(7*x+2);
л:=z+2*a;
a:=Sqrt((b+c)/(5*b*c))-b*b/2/c;
y:=Sqr(Sin(x/2))-Cos(2*x);