Решать на PascalABC Имеется текстовый файл. Напечатать первые 10 символов файла.

var f: text; s: string; begin assign(f,'input.txt'); reset(f); readln(f,s); s:=copy(s,1,10); writeln(s); close(f); end.

var   s:string[10];   f:Text; begin   Assign(f,'a.txt'); Reset(f);   Readln(f,s); Close(f);   Writeln(s) end.