Выберите правильный путь к файлу : 1) 3:LIST.EXE; 2) IN3:.TXT; 3) С:\VVR\12345.BMP; 4) SPRAVKI.

ответ: 3)

Объяснение: потому, что там указан диск C а в остальных нет.

program z1;

uses graphABC;

begin

SetWindowSize(600,400);

SetWindowTitle('¨ëêà');

SetPenWidth(3);

SetPenColor(clBlack);

Line(250,100,300,50);

Line(300,50,350,100);

Line(350,100,250,100);

FloodFill(300,75,clGreen);

Line(235,200,300,100);

Line(300,100,365,200);

Line(365,200,235,200);

FloodFill(300,175,clGreen);

Line(200,300,300,200);

Line(300,200,400,300);

Line(400,300,200,300);

FloodFill(300,275,clGreen);

MoveTo(0,300);

LineTo(100,350);

LineTo(200,325);

LineTo(400,325);

LineTo(500,350);

LineTo(600,375);

FloodFill(15,375,clLime);

Rectangle(287,300,313,325);

FloodFill(300,315,clBrown);

SetBrushColor(clYellow);

Circle(500,100,50)

end.

Объяснение:

картинка

Program n;
var
a, b, i: integer;
begin
b:= 0;
for i:=1 to 4 do
  begin
  readln(a);
  if a > b then
  b:=a;
  end;
writeln('Наибольшее: ' + b);
end.

Как это работает?
Объявляются три целочисленные (interger) переменные:
a - вводимое число
b - самое большое число
i - счётчик цикла
После запуска программы переменной b присваивается значение 0 (чтобы было с чем сравнивать при первом значении)
Запускается цикл for с счётчиком i
Каждый раз цикл просит ввести пользователя число (а)
Дальше проверяется условие, если введённое число a больше числа, которое записано как самое большое (if a>b)
Если ведённое число больше, чем самое большое, то переменной b присваивается значение a
И так пока цикл не закончится
Затем выводится переменная b, в которой хранится самое большое из введённых чисел.