Выведи на экран большее из 2-ух данных чисел.Запиши программку на языке

Ответ:

program n;

var a, b :real;

begin

a:=1.99918;

b:=2.4176;

if (alt;b) then

writeln ('1,99918 lt; 2,4176')

else writeln ('1,99918 gt; 2,4176')

end.

Изъясненье:

begin

   var n1:=1.99918;

   var n2:=2.4176;

   if n1 gt; n2 then

       writeln(n1);

   if n2 gt; n1 then

       writeln(n2);

end.