program prijuostes;
 uses crt;
 var a, b, c, s, n : real;
            i,  m:integer;
begin
  textbackground(7); clrScr;
  window (2, 3, 30, 8); Textbackground (1); Textcolor (15); ClrScr;
  WriteLn('iveskite medziagos ilgi, ploti, iskirpto apskritimo skersmeni centimetrais ir mergaiciu klaseje skaiciu');
  Readln(a, b, c, m);
  s:= ((2*a) + (2*b) + (2* 3.14 * c))/100;
  window (5, 7, 35, 14); Textbackground (4); Textcolor (15); ClrScr;
  writeln('vienos mergaites prijuostei reikes', s :4 :2,'m juosteles');
  window (10, 14, 45, 20); Textbackground (9); Textcolor (15); ClrScr;
   for i :=1 to m do
    begin

    writeln('iveskite prijuostes nr ', i,' ilgi, ploti ir apskritimo skermeni');
    readln (a, b, c);
    s:= ((2*a) + (2*b) + (2* 3.14 * (c/2)))/100;
    n:=n + s;
    
   end;
    writeln('visu mergaiciu prijuostems pripeiks', n :4:2 ,' metru juosteles');
  readln;
end.