Помогите написа программу

[Лилочка]

Помогите написать маленькую программку ПЛЗ

[Prince NAMTARr]

Помогите написать маленькую программку ПЛЗ

так наверное условие пиши сразу

[Claus]

Ну вот программка на Паскале... Осталась с конторы. Как-то так...

program proga_for_Lilochka;
var f1,f2:Text;
    s:string;
procedure Modify_(var s:string);
var i:integer;
    sRet:string;
begin
    i:=Pos(' ',s); 
    if i=0 then exit;
    sRet:=Copy(s,1,i); 
    Delete(s,1,i); 
    sRet:=sRet+s[1]+'.'; 
    i:=Pos(' ',s); 
    if i=0 then begin 
        s:=sRet; 
        exit;
    end;
    Delete(s,1,i); 
    s:=sRet+s[1]+'.'; 
end;
begin
    Assign(f1,'file1.txt'); 
    Reset(f1);
    Assign(f2,'file2.txt');
    Rewrite(f2);
    while not EOF(f1) do begin
        ReadLn(f1,s); 
        Modify_(s); 
        WriteLn(f2,s); 
    end;
    Close(f1); 
    Close(f2);
end.

[HeXakep]

За неимением условия, получается любую програмку надо ?

Оффтопик

В конторе учат паскалю ? О.о

[Claus]

Учили раньше...

[Vader]

<?php
echo "Hello, world!";
?>
Кратк. - сестр. тал.!