Дана строка, состоящая из заглавных букв и цифр. вывести первый символ строки.входные данные: в единственной строке входного потока дана строка символов, длина которой не превышает 255.выходные данные: в выходной поток вывести единственный символ.пример входного файла (input.txt): пример выходного файла (output.txt): k

Program Zadacha;
Const max = 255;
Var t: Text;
i: Integer;
s: String[max];
Begin
Assign(t, 'd:\input.txt');
Reset(t);i := 2;
While Not Eof(t) Do
Begin
If i > max Then
Break;
Read(t, s);
End;
Close(t);
Assign(t, 'd:\output.txt');
Rewrite(t);
Write(t, s[1]);
Close(t);
End.