Pascal másodfokú függvény program?

Beleírod a file-ba a számokat úgy, hogy minden szám után entert ütsz.

Így readln-nal elintézheted a beolvasást.

Hát bocsi, azért a hiányzás nem mentség mindenre. Hozzátok nincs bevezetve a Google? Igenis, leszel szíves alaposan utánaolvasgatni, mert fontos:

[link]

Itt a beolvasás a legprimitívebb módon, a Turbo Pascalból örökölt régivágású megoldással -- a hibakezelést elmellőztem, a program feltételezi, hogy semmiféle gikszer nem adódhat, ott van mellette az adatok.txt, olvasható is, és legalább 3 szám van benne, sortörésekkel elválasztva:

var

a, b, c : integer;

f : text;

begin

Assign(f, 'adatok.txt');

Reset(f);

ReadLn(f, a);

ReadLn(f, b);

ReadLn(f, c);

Close(f);

WriteLn('a = ', a, ' b = ', b, ' c = ', c);

WriteLn('Enterre vége.');

ReadLn;

end.