Составить таблицу платное и бесплатное программное обеспечение

как правило бесплатное програмное обеспеченье бывает либо урезанным либо с

пробным периудом использования

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

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.