uses GraphABC;
var type_of_linse, F, d, f1, dx:integer;
Begin

  writeln('Какая линза? Выпуклая(1)/Вогнутая(2)');
  readln(type_of_linse);
  writeln('Какое фокусное растояние?');
  readln(F);
  writeln('На каком растоянии находится предмет?');
  readln(d);
  writeln('На сколько предмет переместится?');
  readln(dx);
  ClearWindow();

  if type_of_linse =  1 then
  begin
    SetWindowIsFixedSize(true);
    SetWindowSize(1200, 450);
    SetWindowCaption('Timer');
    CenterWindow();
    Line(0,225,1200,225);
    Line(600, 50, 600, 400);
    Line(595, 60, 600, 50);
    Line(605, 60, 600, 50);
    Line(595, 390, 600, 400);
    Line(605, 390, 600, 400);

    Line(600-F, 220, 600-F, 230);
    TextOut(600-F, 250, 'F');
    Line(600+F, 220, 600+F, 230);
    TextOut(600+F, 250, 'F');

    Line(600-F*2, 220, 600-F*2, 230);
    TextOut(600-F*2, 250, '2F');
    Line(600+F*2, 220, 600+F*2, 230);
    TextOut(600+F*2, 250, '2F');

    Line(600-d, 225, 600-d, 200);
    Line(600-d-5, 205, 600-d, 200);
    Line(600-d+5, 205, 600-d, 200);
  end;
End.