ну Где фото отправляй фото и буду помогать
В одном байте 8 бит. В слове информация 10 букв. Соответственно 10 байтов.
Сфотографигуй или нарисуй и сканируй
1 символ 1728/864=2 байта
алфавит 32*2=64 байта
Program n1;
var a,max: integer;
begin
max:=-1;
readln(a);
while a<>0 do
begin
if a>max then max:=a;
readln(a);
end;
writeln(max);
end.