var

a,b,c:real;  

begin  

read(a,b,c);  

if (a>b) and (a>c) then writeln (a*3) else if (b>a) and (b>c) then writeln(b*3) else writeln(c*3);  

end.

Ответ:

Pascal ABC.Net

begin

 var (a, b, c) := ReadInteger3('Введите 3 числа');

 if (a > b) and (a > c) then

   Println('A:= ', a * 3)

 else if (b > a) and (b > c) then

   Println('B:= ', b * 3)

 else println('C:= ', c * 3);

end.