Jak napisać program podający słownie, w której setce leży podana liczba. Zakres od 1 do 1000.

2007-01-02 22:29:21, bartek
UWAGA: Pytanie nie zostało jeszcze sprawdzone przez administratora..!

2007-01-03 19:12:01, username
if (x>=100) and (x<=199) then
write('Podana liczba znajduje sie pomiedzy 100 a 199')

2007-01-04 13:44:43,
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
wpisuje tak:

uses crt;

begin
readkey;
if (x>=100) and (x<=199) then
write('Podana liczba znajduje sie pomiedzy 100 a 199')
end.

i wyskakuje Error 94: "." expected
co z tym zrobic? ze niby po x ma byc kropka? wszystkiego probuje i nic :(

2007-01-05 13:25:37,
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
nie lepiej zamiast readkey zrobic tak:
write('podaj jakas liczbe->');
read(liczba);
.....

2007-01-09 13:21:33, chemik143
UWAGA: Odpowiedź nie została jeszcze sprawdzona przez administratora..!
eeeeeeeeee... a nie prościej tak: dziesiatka:=liczba div 100 ...

uses crt;
var x,dz:integer;
begin
clrscr;
write('podaj liczbe');
read(x);
dz:=x div 100;
write('liczba dziesiatek to: '+ dz);
repeat until keypressed;
end.

Udziel odpowiedzi na powyższe pytanie...

::: działy ::::