На круизном пароме стоимость завтрака для взрослых (18 лет и старше) составляет 10 евро, для подростков (12-17 лет) - 6 евро, для детей (6-11 лет) - 4 евро, для детей младше 6 лет - бесплатно.
составьте программу, которая запрашивает возраст пассажира и выводит на экран стоимость завтрака!

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

смотри схему                                                  

ну в метро, или если ты турист то картой, не?

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.