x:=random(100)+1
// присвоит переменной x рандомное значение в диапазоне [1,101)
// т.е. 101 - НЕ включая

program Sravnenie;
var
a,b,c,i:longint;
key:char;
begin
writeln('Vvedite chislo a=');
read(a);
writeln('Vvedite chislo b=');
read(b);
writeln('Vvedite chislo c=');
read(c);
if a>b then
   begin
   if a>c then
      writeln('a>b>c')
   else
      writeln('c>a>b')
   end
else
    if b>c then
       writeln('b>c>a')
    else
       writeln('c>b>a');
readln(key);
end.

program Deist;
  var
   a,b,Otvet:real;
begin
  writeln('');
  write('Введите a');
  readln(a);
  write('Введите b');
  readln(b);
  Otvet:=a*(b*b)+(b/5);
  Writeln('Результат a*(b*b)+(b/5) равен ­',Otvet);
  readln;
  end.