program p10;

var x,y,z,t:char;  L,M,N:boolean; A,B,o,p,J,K:real; R:string;

begin

x := '$' ;
y := '*' ;
z := '!' ;
t := '#' ;


L := TRUE ;
M := FALSE ;
N := TRUE ;


A := (3.5) ;
B := (-12) ;


R := 'Counter - Strike 1.6' ;


writeln ('''' , x , ''' ' , '''' , y , ''' ', '''' , z , ''' ', '''' , t , ''' ');
readln ;




writeln ('**************')   ;
writeln ('* Aleksandrs *')   ;
writeln ('* Ivanovs    *')   ;
writeln ('**************')   ;
readln;

writeln ('      *')   ;
writeln ('     * * ')   ;
writeln ('    *   *')   ;
writeln ('   *     *')   ;
writeln ('  * *   * *')   ;
writeln (' *   * *   *')   ;
writeln ('* * * * * * *')   ;
readln;

writeln ('Ievadiet 1. skaitli')  ;
readln (o) ;
writeln ('Ievadiet 2. skaitli')  ;
readln (p) ;

J := (o+p);
K := (o-p);

writeln (K:5:2 ,' ir starpiba, bet ', J:5:2,  ' ir summa')  ;


readln ;
end.