//Pascal ABC.NET v3.1 сборка 1219

//1

Var
 a,b,c:real;
begin
 readln(a,b);
 c:=sqrt(a*a+b*b);
 writeln('P=',a+b+c);
end.
//2

Var
 s:string;
 c:char;
 k,i:integer;
begin
 readln(s);
 readln(c);
 for i:=1 to length(s) do
 if s[i]=c then inc(k);
 writeln(k);
end.

//3

Const
 n=10;

Var
 ar:array[1..10] of integer;
 i,h:integer;
begin
 randomize;
 readln(h);
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(10);
   write(ar[i]:4);
  end;
 for i:=n-h+1 to n do
  ar[i]:=1;
 writeln;
 writeln('Final array:');
 for i:=1 to n do
  write(ar[i]:4);
end.