[NOCODE] Без имени - SaveText.Ru

Без имени

Var s:string; 
     n:integer; 
     begin 
     writeLn('Введите название файла:'); 
     readln(s); 
     n := Pos('.', s); 
     if n=0 then s:=s + '.exe' 
     else begin 
     Delete(s, n, length(s)); 
     s:=s + '.exe'; 
     end; 
     writeLn(s); 
     end.
 

Share with your friends:

Print