Выделите общие имена объектов Кемерово
Москва
город
страна
Томь
ручка
дерево

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

буфер обмена,перетаскивание,сохранение в файл

т.к рисунок состоит из  1310720  пикселей, следовательно чтобы получить такую цифру нужно найти произведение двух чисел, которые больше 1000, т.к. 1000*1000=1000000, следовательно, разрешение экрана наиболее близкое к данному : 1280 на 1024, т.к. 1280*1024=1310720 и это ближайшие числа к 1000

var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число

begin

  randomize;

  x: =random(1000)+10;

  if x div 100 > 0 then begin x1: =x div 100;

                                          x2: =(x mod 100) div 10;

                                          x3: =(x mod 100) mod 10;

                                          writeln(x,', ',x3,x2,x1);

                                  end

                          else writeln(x);

end.