Найти все числа , оканчивающиеся на 8, на промежутке от 230 до 350 : )

238 248 258 268 278 298 308 318 328 338 348 

Вот: uses crt; var a, b, c; integer; begin clrscr;     while (a > -10) and (a < 10) do     while (b > -10) and (b < 10) do     begin write(' ввести два целых числа: ');     readln(a, b);     c: = a * b; writeln(' произведение равно: ' ,c); end; writeln(' программа завершена.');     readln end.на выходе: uses crt; var a, b, c; integer; begin clrscr;     while (a > -10) and (a < 10) do     while (b > -10) and (b < 10) do     begin write(' ввести два целых числа: ');     readln(a, b);     c: = a * b; writeln(' произведение равно: ' ,c); end; writeln(' программа завершена.');     readln end.

Program abc;       var       a: array [1..1000] of integer;       i: integer;       sum: integer; begin       sum: =0;     for i: =1 to 1000 do               begin;               readln(a[i]);               if a[i] < 10 then                       sum+=1;               end;       writeln (sum); end.