Ввести с клавиатуры три числа, и вывести их в порядке убывания.

Самое простое, чтоб без заморочек, занести в массив и отсортировать его var     a: array[1..3]of real;     i,j: integer;     p: real; begin for i: =1 to 3 do   begin     write('введите число: ');     readln(a[i]);   end; for i: =1 to 3 do   for j: =1 to 3 do       if a[j]< a[i] then         begin         p: =a[i];         a[i]: =a[j];         a[j]: =p;         end; for i: =1 to 3 do  write(a[i],' ') end.

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

 

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.