program examiyl1;
uses crt;
var
 sona1,sona2:string;
 i,sama:integer;
begin
 clrscr;
 textcolor(green);
 writeln('Programm ksib kasutajalt kahel korral sona ning teatab nende kohta midagi.');
 textcolor(red);
 writeln(' Sisesta ks sona.');
 textcolor(white);
 readln(sona1);
 textcolor(red);
 writeln('Sisesta veel ks sona.');
 textcolor(white);
 readln(sona2);
 sama:=0;
 if length(sona1)=length(sona2) then begin
  for i:=1 to length(sona1) do
   if sona1[i]=sona2[i] then sama:=sama+1;
  if sama=length(sona1) then  begin textcolor(yellow); writeln('Need sonad on hesugused.'); end
   else if sama=length(sona1)-1then
    begin
     textcolor(blue);
     writeln('Need sonad erinevad vaid he t„he poolest.'); end
   else
    begin
    textcolor(white);
    if (sona1[i-1]=sona2[i])and (sona1[i]=sona2[i-1]) then writeln('Kaks korvuti olevat t„hte on vahetuses.')
    else writeln('Need sonad erinevad rohkem, kui he t„he vorra voi pole ldse sarnased sonad.');
    end;  end
   else
    begin
     writeln('Sonad pole he pikkused.');
     if length(sona1)=length(sona2)+1 then writeln('šks t„ht on vahelt puudu.');
    end;
 readln;
end.