Решение задач по теме "Условный оператор If в Pascal"

Даны три числа. Найти сумму двух наибольших из них.

program two;
var
   x,y,z:real;
begin
   write('x = ');
   readln(x);
   write('y = ');
   readln(y);
   write('z = ');
   readln(z);
   
   if (x < y) and (x < z) then
      writeln(y+z)
   else
      if y < z then writeln(x+z)
      else
      writeln(x+y);
end.

Назад