Пуск-все програмы-стандартные-paint что это за действие?

Путь открития программи paint

Var so,sr,c: string; t,k: integer; begin; readln(so); t: =0; for i: =1 to length(so) do sr: =sr+'*'; while t< > 6 do begin; readln(c); if length(c)< > 1 then   begin;   writeln('только одна буква! ');   continue;   end; if pos(c,so)< > 0 then   begin;   for i: =1 to length(so) do     if so[i]=c then     begin;       delete(sr,i,1);       insert(c,sr,i);     end;   writeln(sr);   writeln('осталось ',6-t,' попыток');   end   else   begin;   writeln(sr);   inc(t);   writeln('осталось ',6-t,' попыток');   end;   if so=sr then break; end; if so=sr then writeln('вы выиграли') else writeln('вы проиграли'); end.

Var so,sr,c: string; t,k: integer; begin; readln(so); t: =0; for i: =1 to length(so) do sr: =sr+'*'; while t< > 6 do begin; readln(c); if length(c)< > 1 then   begin;   writeln('только одна буква! ');   continue;   end; if pos(c,so)< > 0 then   begin;   for i: =1 to length(so) do     if so[i]=c then     begin;       delete(sr,i,1);       insert(c,sr,i);     end;   writeln(sr);   writeln('осталось ',6-t,' попыток');   end   else   begin;   writeln(sr);   inc(t);   writeln('осталось ',6-t,' попыток');   end;   if so=sr then break; end; if so=sr then writeln('вы выиграли') else writeln('вы проиграли'); end.