Объяснение:
var x,y:integer;
begin
Write ('Рекорд первого= ');
read (X);
Write ('Рекорд второго= ');
read (y);
if x>y then
writeln (x)
else
writeln (x,' ',y);
end.
Объяснение:
var x,y:integer;
begin
Write ('Рекорд первого= ');
read (X);
Write ('Рекорд второго= ');
read (y);
if x>y then
writeln (x)
else
writeln (x,' ',y);
end.