1)var f, s, n, x: integer; res: real;Begin write('Кол-во пассажиров: '); readln(n); write('Стоимость билетов: '); readln(x); res:= (n - n * 0.25) * x + 0.2 * x * (n * 0.25); writeln(res);End.
2)var x1, x2, y1, y2: real;Begin write('х1, y1: '); readln(x1, y1); write('х2, y2: '); readln(x2, y2); writeln(sqrt(sqr(x2 - x1) + sqr(y2 - y1)));End.