Придумайте та запишіть у зошит 10 істинних і 10 хибних висловлювань

Истинные: 1. земля круглая 2. лето наступает после весны 3. когда идет дождь - земля наполняется влагой 4. москва - столица россии 5. если горит красный сигнал светофора - оставайся на месте 6. сахар сладкий 7. арбуз - это ягода 8. лимон кислый 9. осенью опадает листва на деревьях 10. 1 января начинается новый год. ложные высказывания: 1. коровы летают 2. 2+2=5 3. информатика - наука о рыбах 4. глаза - органы слуха 5. киев - столица ирландии 6. год заканчивается летом 7. когда наступает ночь - светит солнце 8. солнце вращается вокруг земли 9. черепаха - самое быстрое животное в мире 10. соль горькая 

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.