Задачка .Написать программку н языке паскаль присваивания переменной y в значении

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
var
  a,b,c,y:real;
begin
  Write('Введите через пробел три числа: '); Read(a,b,c);
  if agt;b then y:=a else y:=b;
  if cgt;y then y:=c;
  Writeln('y=',y)
end.

Тестовое решение:
Введите через пробел три числа: 6.18 -5 2.11
y=6.18