Написать программку на Паскаль4. Написать программку на Паскале нахождения величайшего из 3-х

//4. Написать программку на Паскале нахождения величайшего из 3-х данных чисел.

var
a,b,c:integer;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if agt;b then
if agt;c then
writeln('Ответ ', a)
else
writeln('Ответ ', c)
else
if bgt;c then
writeln('Ответ ', b)
else
writeln('Ответ ', c)
end.

//5.Написать программку на Паскале нахождения периметра прямоугольника, ширину и длину вводить с клавиатуры.

var
a,b:integer;
begin
writeln('Введите a,b');
readln(a,b);
writeln('P= ', (a+b)*2);
end.

//6. Написать программку на Паскале вычисления значения выражения у=12х2-45х-4

var
x:integer;
begin
writeln('Введите x');
readln(x);
writeln('Ответ ', 12*power(x,2)-45*x-4)
end.