помогите написать программу на Pascal

Question

помогите написать программу на Pascal

Илья Кологривов Ученик (210), на голосовании 13 лет назад

программа просит ввести 10-значное число после того она отбрасывает последние 7 цифр и выдает результат
тоисть вводим 1234567890 после того как программа отбросила цифры должно остаться 123
заранее спасибо

Answer 1

repeat ReadLn(Str) until Length(Str) = 10;
Str[4] := #0; WriteLn(Str);

Answer 2

var
a : longint;
begin
readln(a);
writeln( a div 10000000);
end.

Answer 3

sm, сразу 2 ошибки:
число это одна строка, достаточно считать его один раз;
после "Str[4] := #0" вместо четвертого символа пробел, а остальные символы остаются. я проверяла.
и после этого вы предлагаете "стучать в аську"...