program test(output);
var j:integer;
k:real;
l:packed array [1..6]of char;
begin
   j := 123;
   k := 99;
   l := '123456';
   writeln('finished');
end.