SaveText.Ru

Без имени
  1. Var s:string;
  2.      n:integer;
  3.      begin
  4.      writeLn('Введите название файла:');
  5.      readln(s);
  6.      n := Pos('.', s);
  7.      if n=0 then s:=s + '.exe'
  8.      else begin
  9.      Delete(s, n, length(s));
  10.      s:=s + '.exe';
  11.      end;
  12.      writeLn(s);
  13.      end.
  14.  

Share with your friends:

Print