Поиск элемента у которого первая цифра больше 1 и последняя не равна 0

[Оля1994]

Помогите пожалуйста написать программу для поиска элемента, у которого первая цифра больше единицы, а последняя не равна нулю

[denisbrain]

от 1..350
20
30
40
50
60
70
80
90
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350

Function GetUslovie(i:integer):boolean;
var s:string;
begin
  s:=inttostr(i);
  if (s[1]>'1') and (s[length(s)]='0') then result:=true
  else result:=false;
end;

var x:integer;
begin
  for x:=1 to 350 do begin
     if GetUslovie(x) then
     writeln(x);
   end;
  end.

[BDA]

denisbrain, маленькая ошибочка - (s[1]>'1') and (s[length(s)]<>'0').
Кстати, что будет, если передать отрицательное число?
Хотя это зависит от постановки задачи.

[denisbrain]

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

denisbrain, маленькая ошибочка - (s[1]>'1') and (s[length(s)]<>'0').
Кстати, что будет, если передать отрицательное число?
Хотя это зависит от постановки задачи.

добавить

if i<0 then i:=i*(-1)