С! сделать ! даны два числа. вывести наибольшее из этих чисел, увеличенное в три раза. даны три числа. вывести наименьшее из этих чисел, уменьшенное на 10.

Var a,b:real;
Begin
Write('Введите два числа: ');
ReadLn(a,b);
if a > b then WriteLn(a*3)
else WriteLn(b*3);
Write('Введите три числа: ');
Read(a,b);
if a > b then a:=b;
ReadLn(b);
if a > b then a:=b;
WriteLn(a-10);
End.

Пример работы программы:

Введите два числа: 1 3
9
Введите три числа: 2 1 3
-9