Нужно сделать : Даны два числа. Вывести сначала большее, а потом меньшее из них.Образец:ПрограммаProgram z2;Var a, b, c:Real;BeginWriteln (’ Введите a, b,с’ ); Readln (a, b,c);If ab then c:=aelsec:=b;Writeln(’c=’, c:3:2);End.Решение: Нужно доделать чтобы правильно работала:Program z2;Var a,b:integer;beginwriteln('Введите наибольшее a и наименьшее числа');readln(a,b);if (ab)then writeln(a,' ',b)else writeln (b,' ',a);end.

Question

Нужно сделать : Даны два числа. Вывести сначала большее, а потом меньшее из них.Образец:ПрограммаProgram z2;Var a, b, c:Real;BeginWriteln (’ Введите a, b,с’ ); Readln (a, b,c);If a>b then c:=aelsec:=b;Writeln(’c=’, c:3:2);End.Решение: Нужно доделать чтобы правильно работала:Program z2;Var a,b:integer;beginwriteln('Введите наибольшее a и наименьшее числа');readln(a,b);if (a>b)then writeln(a,' ',b)else writeln (b,' ',a);end.