ЛАБОРАТОРНАЯ РАБОТА №2
Имеется информация о 15 ответственных квартиросъемщиках: фамилия, инициалы, адрес (улица, дом, квартира); квартплата в рублях за месяц; месяц, за который внесена квартплата. Напечатать список квартиросъемщиков, имеющих задолженность 1 квартале.

Код:
Program S2Lab2;
uses crt;
type sem=record
     fam:string[20];
     adress:string[20];
     kv:integer;
     mes:integer;
     end;
Var sp:array [1..10] of sem;
    a:string;
    q,i,n,w:integer;
Begin
clrscr;
writeln;
write('Vvedite kol vo zapisey (ot 1 do 15): ');
readln(n);
If n>15 then write('Zap bolshe 15!!!! Nado 15<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Familia i iniciali: ');
   readln(sp[i].fam);
  write('Adress: ');
   readln(sp[i].adress);
  write('Kvarplata za mes: ');
   readln(sp[i].kv);
  write('Mesac za kotoriy vnesena kvart plata: ');
   readln(sp[i].mes);
 End;
writeln('Spisok dolznikov');
For i:=1 to n do
Begin
if sp[i].mes<=3 then
Begin
write(sp[i].fam,'   ');
write(sp[i].adress,'    ');
write(sp[i].kv,'     ');
writeln(sp[i].mes);
End;
End;
End;
readln;
End.