Вывести 1-ую цифру любого числа. (на языке pascal)

PasocialOkss0111055001

Program chislo;
Var a,s:integer;
Begin
Write (a);
Read (a);
s:=a div 10; для двузначного
s:=a div 100; для трехзначного
Writeln ('Первая цифра числа ',s);
End.