uses crt;
var i:integer;
    a,obsah:real;
begin
  clrscr;
  for i:= 4 to 76 do
  begin
    gotoxy(i,3);write('อ');
    gotoxy(i,22);write('อ');
  end;

  for i:= 4 to 21 do
  begin
    gotoxy(4,i);write('บ');
    gotoxy(77,i);write('บ');
  end;

    gotoXY(4,3);Write('ษ');
    gotoXY(4,22);Write('ศ');
    gotoXY(77,3);Write('ป');
    gotoXY(77,22);Write('ผ');

  TextBackGround(white);
  TextColor(red);
  GoToXY(28,11);
  Write('Autor:Milan Tatar');
  TextColor(red);
  GoToXY(28,12);
  Write('Datum:30.9.1996');
  TextColor(red);
  GoToXY(28,13);
  Write('Autorska prava:Franta Rehor');
  gotoXY(28,14);
  Write('Program slouzi pro vypocet obsahu ctverce pro jehlan');

  repeat until keypressed;
  clrscr;
  for i:= 4 to 76 do
  begin
    gotoxy(i,3);write('อ');
    gotoxy(i,22);write('อ');
  end;

  for i:= 4 to 21 do
  begin
    gotoxy(4,i);write('บ');
    gotoxy(77,i);write('บ');
  end;

    gotoXY(4,3);Write('ษ');
    gotoXY(4,22);Write('ศ');
    gotoXY(77,3);Write('ป');
    gotoXY(77,22);Write('ผ');

  gotoXY(10,5);Write('Zadej a=');

  read(a);
  obsah:=(1/3)*a*a*i;
  gotoXY(10,9);
  Write('obsah ctverce=',obsah:8:4);
  GotoXY(9,9);Write('บ');
  GotoXY(35,9);Write('บ');
   GotoXY(35,10);Write('ผ');
  GotoXY(9,8);Write('ษ');
  GotoXY(9,10);Write('ศอออออออออออออออออออออออออ');
  GotoXY(10,8);Write('อออออออออออออออออออออออออป');

     repeat until keypressed;
  clrscr;
  for i:= 4 to 76 do
  begin
    gotoxy(10,3);write('อ');
    gotoxy(11,22);write('อ');
  end;

  repeat until keypressed;


  repeat until keypressed;

end.