Таблица содержит следующие данные об учениках школы: фамилия, возраст и рост ученика. сколько учеников могут заниматься в баскетбольной секции, если туда принимают детей с ростом не менее 160 см? возраст не должен превышать 13 лет.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.