Program gt;
var s:string;
l:integer;
begin
readln(s);
l:=length(s);
writeln(s[1]);
writeln(s[l],' ',s[l]);
end.
Program keke;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
For i:= 1 to n do
readln(a[i]);
FOr i:= 1 to n do
a[i]:=a[i]+3;
for i:= 1 to n do
writeln(a[i]);
readln;
end. <span>
</span>
Потому что не профисиона эго делал
Учебник-5 запятых справа; кит-одна запятая слева; ель