дано натуральное число. найдите первую цифру числа. 0

А куда Вы ввели это?

в pascal

Запускаете программу, вводите нужное число, получаете ответ

как запустить программу, ctrl+F9?

Нажать на треугольничек) Как на магнитофоне

varx,y:integer;beginreadln (x);while x>0 dobeginy:=x mod 10;x:=x div 10;end;writeln ('Первая цифра = ',y);end.