(кто знает паскаль) дана программа: var g: integer; i: integer; begin readln(g); if (g> =0) and (g< =100) then i: = 1; if (g> =101) and (g< =200) then i: = 2; if (g> =201) and (g< =300) then i: = 3; if (g> =301) and (g< =400) then i: = 4; if (g> =401) and (g< =500) then i: = 5; if (g> =501) and (g< =600) then i: = 6; if (g> =601) and (g< =700) then i: = 7; if (g> =701) and (g< =800) then i: = 8; writeln(i) end. можно ли сократить ее? и как, каким оператором?
begin
m := 100;
read(g);
for j := 1 to 8 do begin
if(g >= n) and (g <= m) then i := j;
if (j = 1) then n := n + 1;
n := n + 100;
m := m + 100;
end;
write(i);
end.