Const
 Sig=['*','/','+','-'];
Var
 S,s1:String;
 i:Byte;
 Code:Integer;
 C:Char;
 a,Result:real;
Begin
 Writeln('Enter the string:');
 Readln(S);
 s1:='';
 i:=0;
 Repeat
  Inc(i);
  If Not (S[i] in Sig) then s1:=s1+S[i];
 Until S[i] in Sig;
 C:=S[i];
 Val(s1,a,Code);
 Result:=a;
 Repeat
  s1:='';
  Repeat
   Inc(i);
   If (Not (S[i] in Sig)) and (i<=Length(S)) then s1:=s1+S[i];
  Until (S[i] in Sig) or (i=Length(S));
  Val(s1,a,Code);
  Case C of
   '*': Result:=Result*a;
   '/': Result:=Result/a;
   '+': Result:=Result+a;
   '-': Result:=Result-a;
  end;
  If i<Length(S) then C:=S[i];
 Until i=Length(s);
 Writeln('Result: ',Result:0:3);
 Readln;
End.

Var
 S,s1,s2:String;
 n1,n2:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 n1:=0;
 n2:=0;
 Repeat
  Inc(n1);
 Until S[n1]=' ';
 Dec(n1);
 Repeat
  Inc(n2);
 Until S[Length(S)+1-n2]=' ';
 Dec(n2);
 s1:=Copy(S,1,n1);
 s2:=Copy(S,Length(S)+1-n2,n2);
 Delete(S,1,n1);
 Delete(S,Length(S)+1-n2,n2);
 Insert(s2,S,1);
 Insert(s1,S,Length(S)+1);
 Writeln(S);
 Readln;
End.

for i:=1 in legth(s)do
  begin
   if s[i] in [ 'e', 'o', 'i', 'a', 'u', 'y', 'A', 'O', 'I', 'E', 'U', 'Y'];  then
      begin
             {вот это место где нужно присвоить переменной значение}

Var
 S,S1:String;
 i:byte;
Begin
 S:='ghjk8987iuynlwenFJKcvtrmj76faOWML:UTL&^(LUH';
 Writeln(S);
 S1:='';
 for i:=1 to length(S) do
  if S[i] in ['e','o','i','a','u','y','A','O','I','E','U','Y'] then S1:=S1+S[i];
 Writeln(S1);
 Readln
End.