Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

program ex1;

var x,y:real;

begin

readln(x,y);

if x>y then writeln(x>y and x=,x);

if xx and y=,y) 

else writeln(x=y=,x);

end.