Постройте таблицу истинности:

Microsoft QBasic 1.0

CLS
x = 0
DO WHILE x <= 2.1001
   PRINT x, COS(x)
   x = x + .1
LOOP

Результат
 0             1
 .1            .9950042
 .2            .9800666
 .3            .9553365
 .4            .921061
 .5            .8775826
 .6            .8253356
 .7            .7648422
 .8000001      .6967067
 .9000001      .6216099
 1             .5403022
 1.1           .453596
 1.2           .3623576
 1.3           .2674986
 1.4           .1699669
 1.5           7.073697E-02
 1.6          -2.919978E-02
 1.7          -.1288448
 1.8          -.2272024
 1.9          -.3232899
 2            -.4161471
 2.1          -.5048462

//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write ('Введите вес ', i+1, '-го ученика: ');
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write ('Введите рост ', i+1, '-го ученика: ');
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.