"справедливы неравенства а> 0 или в< -2 ".проверить истинность высказывания.

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

Печально, придется придумывать, а фантазия иногда ведет не в ту стпень, но не суть. лично мне кажется что неплохо было бы хранить в бд под названием погода информацию относительно погоды, скажем гидромежцентра или как его там а значит объектами будут - температура влажность ветер дождь и тд если бы я ее проектировал то в качестве ключа выбрал бы дату, потому как она явно уникальна и прогнозы идут каждый день далее успеваемость - допустим успеваемость студента в универе, а значит неплохо бы в качестве объектов задать предметы по которым интересует успеваемость(обычно все) в качестве ключа можно взять любой уникальный идентификатор, хоть серию в паспорте хоть инн, но рас уж у нас универ пусть будет номер студенческого билета, или зачетной книжки и наконец факультативы - нужен перечень всех факультативов(причем не важно посещает все или не посещает ни одного), не слышал чтобы в школах были факультативы, так что предположу что учебное заведение чуть чуть  повыше а значит в качестве ключа так же подойдет номер студ билета

Программа рассчитана на то, что на экран выводится самый последний массив с результатами. uses crt; const p=5; r=5; s=5; var a: array[1..p] of integer; b: array[1..r] of integer; c: array[1..s] of integer; m: array[1..3] of integer; k,l,i,g,j,d,v,n: integer; begin readln(l);   writeln;   for i: =1 to p do readln(a[i]);     writeln;     for j: =1 to r do readln(b[j]);         writeln;         for g: =1 to s do readln(c[g]);         writeln;         for i: =1 to p-1 do repeat d: =0; if a[i]> a[i+1] then begin d: =1; a[i]: =a[i]+a[i+1]; a[i+1]: =a[i]-a[i+1]; a[i]: =a[i]-a[i+1]; end; until d=0; for j: =1 to r-1 do repeat d: =0; if b[j]> b[j+1] then begin d: =1; b[j]: =b[j]+b[j+1]; b[j+1]: =b[j]-b[j+1]; b[j]: =b[j]-b[j+1]; end; until d=0; for g: =1 to s-1 do repeat d: =0; if c[g]> c[g+1] then begin d: =1; c[g]: =c[g]+c[g+1]; c[g+1]: =c[g]-c[g+1]; c[g]: =c[g]-c[g+1]; end; until d=0; for i: =1 to p do if a[i]=l then inc(v); m[1]: =v; v: =0; for j: =1 to r do if b[j]=l then inc(v); m[2]: =v; v: =0; for g: =1 to s do if c[g]=l then inc(v); m[3]: =v; for n: =1 to 2 do repeat d: =0; if m[n]> m[n+1] then begin d: =1; m[n]: =m[n]+m[n+1]; m[n+1]: =m[n]-m[n+1]; m[n]: =m[n]-m[n+1]; end; until d=0; for n: =1 to 3 do writeln(m[n]); end.