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

Question

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

Comments

Число двузначное, трехзначное или какое?

---

Любого число

Answer 1

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

Answer 2

PasocialOkss0111055001