SaveText.Ru
Add a new text
View all texts
Change language
English
Russian
Registration
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