)96. дано предложение, в котором имеются одна буква «с» и одна буква «т». определить, какая из них встречается раньше (при просмотре слова слева направо). это паскаль, строки)

vars: string; beginwrite ('введите предложение: '); readln(s); if pos('с',s)> pos('т',s)   then writeln ('буква «т» встречается раньше')  else writeln('буква «с» встречается  раньше'); end.

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

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.