Wpis z mikrobloga

USES CRT;

VAR

t:text;

a:char;

BEGIN

clrscr;

assign(t, 'c:\plik1.txt');

reset(t);

REPEAT

read(t,a);

write(a);

UNTIL EOF(t);

close(t);

delay(3000);

END.
  • Odpowiedz