1. Даны действительные числа x и y. Найти из них максимальное. 2. Даны два действительных...

Question

1. Даны действительные числа x и y. Найти из них максимальное. 2. Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так.

Answer 1

Var
  x,y:real;
begin
  Read(x,y);
  if x>y then then Writeln(x) else Writeln(y); { задание 1 }
  if x>y then Writeln(x) else Writeln(x,' ',y) { задание 2 }
end