VAR
 a,b,alpha:REAL;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 Write('alpha= ');
 ReadLn(alpha);
 WriteLn('c= ',SQRT(SQR(a)+SQR(b)-2.0*a*b*Cos(alpha/180*Pi)));
 ReadLn;
END.

VAR
 r1,r2,h1,h2:REAL;
BEGIN
 Write('r1= ');
 ReadLn(r1);
 Write('h1= ');
 ReadLn(h1);
 Write('r2= ');
 ReadLn(r2);
 Write('h2= ');
 ReadLn(h2);
 If h1>h2 then
  writeln('Cylinder1 is higher then cylinder2') else
 If h2>h1 then
  writeln('Cylinder2 is higher then cylinder1') else
  writeln('The hights of cylinder1 and cylinder2 are equal');
 If r1>r2 then
  writeln('Cylinder1 is wider then cylinder2') else
 If r2>r1 then
  writeln('Cylinder2 is wider then cylinder1') else
  writeln('The widths of cylinder1 and cylinder2 are equal');
 ReadLn;
END.

Var 
   r1,r2,h1,h2:byte;
 Begin
   Writeln('r1 h1');
   Read(r1,h1);
   Writeln('r2 h2');
   Read(r2,h2);
   If r1=r2 then writeln('А и В равны по ширине основания');
   If r1>r2 then writeln('А шире В') else writeln('В шире А');
   If h1=h2 then writeln('А и В равны по высоте');
   If h1>h2 then writeln('А выше В') else writeln('В выше А'); 
   Readln;
 End.

Var a,b,n,s,k:integer;
Begin
  Randomize;
  Read(n);
  k:=0;
  Repeat
  a:=random(100)-50;
  b:=random(100)-50;
  If (a<0) or (b<0) then k:=k+1;
  s:=a+b;
  Writeln(a:5,b:5,s:5);
  s:=0;
  Until k>=n;
End.

Const n=5;
Var i,j,k:byte;a:array[1..n,1..n]of integer;s:integer;
Begin
  Randomize;
  s:=0;
  For i:=1 to n do
  For j:=1 to n do
  a[i,j]:=random(100)-50;
   For i:=1 to n do
   begin
  For j:=1 to n do
  write(a[i,j]:5);
  writeln;
  end;
  writeln;
  For i:=1 to n do
  For j:=1 to n do
  s:=s+a[i,j];
  k:=n+1;
  If s<0 then
            for i:=1 to n do
            a[i,i]:=0;
  If s>0 then
            for i:=1 to n do
            for j:=1 to n do
            begin
            k:=k-1;
            a[k,j]:=0;
            end;
  If s=0 then writeln('summa=0');
  For i:=1 to n do
   begin
  For j:=1 to n do
  write(a[i,j]:5);
  writeln;
   end;
End.

 Var 
        i,k:byte;
        s:char;
        text:string;
 Begin
  S:=',';
  Readln(text);
  Writeln(text);
  k:=0;
  For i:=1 to length(text) do
  If text[i]=s then k:=k+1;
  If k<>0 then
  K:=k+1; 
  Writeln(k);
 End.