program DZ;
uses crt;
type
sp=record
nam:integer;
n:integer;
dr:integer;
gp:integer;
g:integer;
o:string;
  end;
 myfile = file of sp;
procedure show(var f: myfile);
 var a:sp;
  begin
   reset(f);
   while not eof(f) do
    begin
     read(f,a);
     writeln(a.nam:5,a.n:3,a.dr:5,a.gp:5,a.g:5,a.o:5);
    end;
  end;
procedure Vvod(var f:myfile);
 var a:sp;
  begin
    reset(f);
    with a do
     begin
     write('Nomer kompa: '); readln(nam);
     write('Razmer monitora: '); readln(n);
     write('Chastota processora: '); readln(dr);
     write('Obem operativoy pamati: '); readln(gp);
     write('Razmer Goskogo diska: '); readln(g);
     write('Nalichie privoda(da/net): '); readln(o);
   end;
   seek(f,filesize(f));
   write(f,a);
   close(f);
   end;
procedure delete(var f:myfile);
 var c:integer;
     n,i:integer;
     a:sp;
      begin
       reset(f);
       if filesize(f)=0 then
       begin
        write('file pust');
        exit
       end;
   n:=filesize(f);
   write('number zap: ');
   readln(c);
   if (c<0)or(c>n-1) then
   exit;
   n:=n-1;
   for i:=1 to n-1 do
    begin
     seek(f,i+1);
     read(f,a);
     seek(f,i);
     write(f,a);
    end;
   seek(f,n);
   truncate(f);
   close(f);
  end;
procedure savetext(var f: myfile);
 var t:text;
 nam: string;
 a:sp;
  begin
   write('name text: ');
   readln(nam);
   if length(nam)=0 then exit;
   assign(t,nam);
   rewrite(t);
   reset(f);
    begin
     while not eof(f) do begin read(f,a);
     writeln(a.nam:5,a.n:3,a.dr:5,a.gp:5,a.g:5,a.o:5);
    end;
   close(f);
   close(t)
   end;
  end;
procedure savetip(var f: myfile);
 var t: text;
     nam: string;
     z: sp;
  begin
   write('name file: ');
   readln(nam);
   if length(nam)=0 then exit;
   assign(t,nam);
   reset(t);
   rewrite(f);
  while not eof(t) do begin with z do
  readln(t,nam,n,dr,gp,g,o);
  write(f,z);
  end;
  close(f);
  close(t);
 end;
Var f:myfile;
    c:integer;
Begin
 Assign(f,'DZ1S2.bin');
 {$I-}
 Reset(f);
 {$I+}
If IoResult<>0 then
Rewrite(f);
Repeat
 writeln('1-Vivesti dannie');
 writeln('2-Vvesti dannie');
 writeln('3-Udalit dannie');
 writeln('4-Sohranit v text');
 writeln('5-Perepisat v Bin');
 writeln('0-Vihod');
  Repeat
   write('? ');
   readln(c);
  Until (c>=0) and (c<=5);
 case c of
   1: show(f);
   2: Vvod(f);
   3: delete(f);
   4: savetext(f);
   5: savetip(f);
  end;
 readln;
 clrscr;
 until c=0;
END.

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.

Program S2Lab2;
uses crt;
type avto=record
     fam:string[20];
     mark:string[20];
     god:integer;
     nomer:string[20];
     end;
Var sp:array [1..10] of avto;
    a:string;
    q,i,n,w:integer;
Begin
clrscr;
writeln;
write('Vvedite kol vo zapisey (ot 1 do 10): ');
readln(n);
If n>10 then write('Zap bolshe 10!!!! Nado 10<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Familia vladelca: ');
   readln(sp[i].fam);
  write('Marca mashini: ');
   readln(sp[i].mark);
  write('God vipuska: ');
   readln(sp[i].god);
  write('Reg nomer: ');
   readln(sp[i].nomer);
 End;
writeln('Vvedite marku');
readln(a);
q:=0;
w:=0;
For i:=1 to n do
Begin
if sp[i].god>10 then q:=q+1;
 If sp[i].mark=a then w:=w+1;
End;
writeln('Vsego mashin starshe 10 let: ',q);
writeln('Vsego mashin zadannoy marki: ',w);
End;
readln;
End.

program lab1;
var c:string;
a,i:integer;
st:set of ','..'.';
Begin
  write('Vvedite posledovatelnost ');
  readln(c);
a:=length(c);
st:=['.',':',';',',','!'];
  for i:=1 to a do
  if not (c[i] in st) then write (c[i]);
  readln;
  End.

uses crt, graph;
const r=152;
avto=3;
type
        A = record
                nazvanie: string;
                cvet: string;
                god: integer;
                tip: integer;
        end;
var i : integer ;
ar: array[1..10] of a;
        k,m0,m1,m2,l,l0:integer;
        ro:real;
        Driver, Mode: Integer;
        Xasp, Yasp: Word;
begin
clrscr;
writeln('Kol-vo tipov: 3' ) ;
readln;
for i:=1 to avto do
begin
writeln('Marca: ');
Readln(ar[i].nazvanie);
writeln('Cvet:');
Readln(ar[i].cvet);
ar[i].tip:=random(5);
writeln('Tip:');
ar[i].tip:=random(200);
writeln(ar[i].tip);
end;
writeln('„Ё Ја ¬¬  :');
        for i:=1 to avto do
        k:=k+ar[i].tip;
        ro:=360/k;
        m0:= ar[1].tip*trunc(ro);
        m1:=ar[2].tip*trunc(ro);
        m2:=ar[3].tip*trunc(ro);
        driver:=Detect;
        InitGraph(Driver, Mode, '');
        SetFillStyle(4, 2);
        Sector(GetMaxX Div 2, GetMaxY Div 2, 0, m0, R, R);
        Bar(480, 50, 500, 70);
        outtextxy(504,60,ar[1].nazvanie);
         SetFillStyle(5, 3);
        Sector(GetMaxX Div 2, GetMaxY Div 2, m0, m1+m0, R, R);
        Bar(480, 80, 500, 100);
        outtextxy(504,90,ar[2].nazvanie);

        SetFillStyle(8, 8);
        Sector(GetMaxX Div 2, GetMaxY Div 2, m0+m1, m1+m0+m2, R, R);
        Bar(480, 110, 500, 130);
        outtextxy(504,120, ar[3].nazvanie);
        readln;
   CloseGraph;
end.