uses crt;
var
err,n,i,c,sum:integer;
s:string;
begin
write('Enter n = ');readln(n);
str(n,s);
val(s[1],n,err);
writeln('Pervaya zifra: ', n);
readln;
end.
uses crt;
var
err,n,i,c,sum:integer;
s:string;
begin
write('Enter n = ');readln(n);
str(n,s);
val(s[1],n,err);
writeln('Pervaya zifra: ', n);
readln;
end.