var
  posl: string; {В этой переменной будем хранить последовательность}
  S,R,A: byte; {переменные-счётчики для соотв. символов}
  i: byte; {переменная-индекс}
begin
  S := 0; R := 0; A := 0; {инициализация}
  Write('Type your string now: '); {"приветствие"}
  Readln(posl); {считываем последовательность}
  for i:=1 to length(posl) do {пробегаем по всем символам}
   case posl[i] of {и смотрим}
     'S': begin inc(S); delete(posl, i,1); insert('.', posl,i); end; {если найдём символ  S , то удалим его из строки, вместо него вставим точку и увеличим счётчик на единичку}
     'R': inc(R); {если найден символ  R  увеличиваем переменную R на единичку}
     'A': inc(A); {догадайтесь сами ;)}
    end;
  writeln;
  writeln(posl); {выводим обработанную последовательность на экран}
  writeln('S = ', S, '; R = ', R, '; A = ',A,'.'); {и подсчитанные символы}
  readln;
end.
 

 
var
  posl: string; {здесь будем хранить все символы}
  S,R,A: byte; {это по прежнему счётчики}
  ch: char; {в эту переменную будем помещать считанный с клавиатуры символ}
  i: byte;
begin
  S := 0; R := 0; A := 0; posl := ''; {инициализация}
  Writeln('Type your symbols now (`*` is last)');
  Repeat 
   readln(ch);
   case ch of
     'S': begin inc(S); ch := '.'; end;
     'R': inc(R);
     'A': inc(A);
    end;
   posl := posl + ch;
  Until ch = '*';
  writeln;
  writeln(posl);
  writeln('S = ', S, '; R = ', R, '; A = ',A,'.');
  readln;
end.

 

 var
a:real;
x1,y1,x2,y2,x3,y3:integer;
begin
{вводим координаты}
  write('x1:');readln(x1);
  write('y1:');readln(y1);
  write('x2:');readln(x2);
  write('y2:');readln(y2);
  write('x3:');readln(x3);
  write('y3:');readln(y3);
{считаеим периметр и выводи результат}
  a:=sqrt(sqr(x1-x2)+sqr(y1-y2))+sqrt(sqr(x1-x3)+sqr(y1-y3))+sqrt(sqr(x3-x2)+sqr(y3-y2));
  writeln('P:=',a);
{считаем полупериметр и выводим площадь}
  a:=a/2;
  writeln('S:=',sqrt(a*(a-sqrt(sqr(x1-x2)+sqr(y1-y2)))*
                       (a-sqrt(sqr(x3-x2)+sqr(y3-y2)))*
                       (a-sqrt(sqr(x1-x3)+sqr(y1-y3)))));
  readln;
end.

 uses
  crt;
var
  a:string;
  b:char;
  cA,cS,cR:integer;
begin
  {сбрасываем счетчики}
  cA:=0;
  cR:=0;
  cS:=0;
  write('Enter you string:');
  repeat
  {вводим без эхо, и выводим символ}
    b:=ReadKey;
    write(b);
  {считаем нужные символы}
    case b of
     'S':begin
           inc(cS);
           b:='.';
         end;
     'R':inc(cR);
     'A':inc(cA);
     end;
    a:=a+b;
  until b='*';
  {выводим результаты}
  writeln;
  writeln('Result:':17,a);
  write('A:=',cA,'R:=':5,cR,'S:=':5,cS);
  readln;
end.