H kell megírni pascalba azt h?

Na mi van, pascal házi van, és a prog.hu-ról elhajtottak a fszba?

Írd meg C-ben...

Program pelda;

Uses crt;

Var

nev : string ;

Function szamol( l_nev : string ) : integer;

Var i,darab:integer;

Begin

darab := 0;

for i:=1 to Length(l_nev) do if l_nev[i] = 'e' then darab:=darab+1;

szamol:=darab;

End;

// ------------------------------------------------------

Begin

ClrScr;

Write('Neved: '); Readln(nev);

ClrScr;

Randomize;

Gotoxy(1+random(80-Length(nev)),3); WriteLn(nev);

GotoXy(1,10); Writeln(szamol(nev));

readln();

End.