Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа...

Question

Дано натуральное число. Верно ли, что первая цифра не превышает 6? (Нужна программа Паскаль!!!!!)!!!!!!!!!!

Answer 1

Program picaso; uses crt;
var s:string;
x,cod:integer;
begin clrscr;
 write('Vedite cislo: ');readln(s);
 val(s[1],x,cod);
 if x < 6 then writeln('verno!!! :',x,' < 6');
 readkey;
end.