Надрукуйте всі цілі числа з інтервалу [20;50] що кратні 5 та некратні 3

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

б< т

к< л

с< е

липа ниже березы

к< л< б< т

сосна выше тополя

к< л< б< т< с< е

самое высокое ель

самое низкое клен