Срочно,вывести на экран наибольшие из трех чисел

Не знаю на каком языке надо так что решу на паскалеVar a,b,c,max:inreger;Beginreadln(a,b,c);If (a>b) and (a>c) then max:=a;If (b>a) and (b>c) then max:=b;If (c>a) and (c>b) then max:=c;Writeln(max);End.