MODULE Heart;

IMPORT Log;

VAR i: INTEGER;

​

PROCEDURE Print(spc1,chr1,spc2,chr2,spc3:INTEGER);

BEGIN

FOR i:=1 TO spc1 DO Log.String(" ");END;

FOR i:=1 TO chr1 DO Log.String("*");END;

FOR i:=1 TO spc2 DO Log.String(" ");END;

FOR i:=1 TO chr2 DO Log.String("*");END;

FOR i:=1 TO spc3 DO Log.String(" ");END;

Log.Ln;

END Print;

PROCEDURE Print2(spc1,chr1,spc2, chr2,spc3:INTEGER );

BEGIN

FOR i:=1 TO spc1 DO Log.String(" ");END;

FOR i:=1 TO chr1 DO Log.String("*");END;

FOR i:=1 TO spc2 DO Log.String(" ");END;

FOR i:=1 TO chr2 DO Log.String("*");END;

FOR i:=1 TO spc3 DO Log.String(" ");END;

END Print2;

​

BEGIN

Log.Ln; 

Print2(7,1,2,1,2); Print2(0,1,2,1,1); Print2(6,1,2,1,2); Print(0,1,2,1,1); Print2(4,1,15,1,0); Print2(0,0,15,1,4);

Log.Ln; 

Print2(2,1,17,0,18);Print2(0,1,2,0,0);

Log.Ln;

 Print(1,1,37,1,1);

 Print(0,1,39,1,0);

 Print(0,1,39,1,0);

 Print(0,1,39,1,0);

Print2(0,1,13,0,0);Log.String("Я ЛЮБЛЮ ОБЕРОН!");

 Print(11,1,0,0,0);

 Print(1,1,37,1,1);

 Print(2,1,35,1,2);

 Print(3,1,33,1,3);

 Print(5,1,29,1,5);

 Print(7,1,25,1,7);

 Print(9,1,21,1,9);

 Print(11,1,17,1,11);

 Print(13,1,13,1,13);

 Print(16,1,7,1,16);

Print2(18,1,0,0,0); Print(3,1,1,0,0);

 Print(20,1,0,0,0);

END Heart.