Program Cifru;
uses crt;
var s1,s2:string;
    l1,l2,n,m:integer;
    alfa, beta:boolean;
    i:integer;

BEGIN
s1:='PROGRAMARE';
s2:='PGMERRA OAR';
l1:=length(s1);
l2:=length(s2);
if l2-l1>0 then alfa:=true else alfa:=false;
beta:=false;
if alfa then for i:=l2 downto 1 do
                if s2[i]=' ' then
                        begin
                                beta:=true;
                                m:=i;
                                break;
                        end;
writeln('rezultatul este: ',l2-m+1);
readln;
end.