Чему равно высказывание B : «24 — отрицательное число».

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.

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

один возвращается

мама плывет на тот берег

второй мальчик возвращается

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

один возвращается

отец плывет на тот берег

второй мальчик возвращается

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

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

зеркало

коромысло

дупло

дуло

крыло