Получить слово t, получаемое путем прочтения слова s начиная с его конца

var i: integer;
    s,t: string;
    begin
    readln(s);
    t:='';
    for i:=length(s) downto 1 do
        t:=t+s[i];
    write(t);
    end.

var i,n,pro: integer;
    s: string;
    begin
    readln(s);
    pro:=1;
    for i:=1 to length(s) do
        if(s[i]='1') or (s[i]='2') or (s[i]='3') or (s[i]='4') or (s[i]='5') or (s[i]='6') or (s[i]='7') or (s[i]='8') or (s[i]='9')
        then
        begin
             n:=integer(s[i])-48;
             pro:=pro*n;
        end;
    writeln('Product = ',pro);
    end.

uses crt;
const n=10; k=31;
var s1,s2:set of byte;
    a,b:array[1..n] of integer;
    i:integer;
begin
     s1:=[];  s2:=[];
     for i:=1 to n do
     begin
         a[i]:=random(k);
         b[i]:=random(k);
         s1:=s1+[a[i]];
         s2:=s2+[b[i]];
     end;
     writeln('First array: ') ;
     for i:=1 to n do
         write(a[i]:3);
     writeln();
     writeln('Second array: ') ;
     for i:=1 to n do
         write(b[i]:3);
     writeln();
     writeln('First set: ') ;
     for i:=0 to k do
         if i in s1 then write(i:3);
     writeln();
     writeln('Second set: ') ;
     for i:=0 to k do
         if i in s2 then write(i:3);
     writeln();
     writeln('Total set: ');
     for i:=0 to k do
         if(i in s1)and(i in s2) then write(i:3);
     writeln();
end.