Дано натуральное число п. Написать программу для определения первой цифры числа п.

[AlenaVasilenko]

Мальчики привет ,помогите пожалуйста. Я очень надеюсь на вас. Мне эту задачу надо завтра уже показать. Я не знаю что делать.
Вот собственно задача :

Дано натуральное число п. Написать программу для определения первой цифры числа п.

[Alex11223]

while(n <> 0) do
begin
  i := n;
  n := n div 10;
end;

Примерно так. n — число, в i будет первая цифра. Остальное надеюсь сама напишешь.

[AlenaVasilenko]

Плизз я тебя прошу напиши полностью код, я заканчиваю 3 курс ели как. Мне все время помогали одногруппники. Прошу тебя очень очень.

Сообщение от Alex11223

while(n <> 0) do
begin
  i := n;
  n := n div 10;
end;

Примерно так. n — число, в i будет первая цифра. Остальное надеюсь сама напишешь.

Плизз я тебя прошу напиши полностью код, я заканчиваю 3 курс ели как. Мне все время помогали одногруппники. Прошу тебя очень очень.

[Alex11223]

Эм...А зачем заканчиваете если даже такую простую задачу не можете решить?) Даже с основной частью кода.
Вот .ехе, дам за 50р. вебмани или ЯД полный исходник (контакты в подписи).
Или хотя бы гуглом воспользуйтесь.

[AlenaVasilenko]

Сообщение от Alex11223

Эм...А зачем заканчиваете если даже с такой простой задачей проблемы?)
Вот .ехе, дам за 50р. вебмани или ЯД полный исходник (контакты в подписи).
Или хотя бы гуглом воспользуйтесь.

ну что за мальчик ты такой

у меня не терминалов рядом нет , ни банка чтобы закинуть и на счету нету чтобы переслать на какие нибудь электронные деньги.
все равно спасибо Алекс.

правда останусь без задачи.ничего жизнь такова.

[Mad_Cat]

var i,n:integer;
begin
readln(n);
while(n <> 0) do
begin
  i := n;
  n := n div 10;
end;
writeln(i);
readln;
end.