Pascal nesigauna

Sveiki, dariau vieną informatikos uždavinį ir man nesigavo įterpti tokių dviejų pailgų stačiakampių, gal kas galėtų padėti? :)

http://img593.imageshack.us/img593/9479/staig.jpg

Noriu įterpti štai šiuos juodai nupaišytus stačiakampius (aišku pilnavidurius :) )

Štai visas programos kodas:

program Programa;
uses crt;
var x : integer;
	Sson, Spagr, Svisas, Spav, h, pk, p, pst, a, b, c, v, ap, r, l:real;
	tikr: char;
begin
 repeat
 Window (1, 1, 28, 25);
 TextBackground (2);
 Clrscr;
 WriteLn('Kokia figura noretumete');
 WriteLn('apskaiciuoti?');
 WriteLn(' ');
 WriteLn('1 - Stacioji prizme');
 WriteLn('2 - Kubas');
 WriteLn('3 - Staciakampis');
 WriteLn('	gretasienis');
 WriteLn('4 - Kugis');
 WriteLn('5 - Taisyklingoji Piramide');
 WriteLn('6 - Ritinys');
 WriteLn('7 - Rutulys');
 Window (29, 1, 80, 10);
 TextBackground (3);
 Clrscr;
 ReadLn( x );
 case x of
 1 :
begin
WriteLn('Iveskite pagrindo krastines, pagrindo statinio ir');
WriteLn('aukstines ilgius');
ReadLn(pk, pst, h);
Window (29, 10, 80, 25);
TextBackground (4);
Clrscr;
Window (30, 11, 81, 26);
TextBackground (5);
Clrscr;
If pk <= 0
 	then writeln('Ivedete 0 arba neigiama skaiciu')
 	else if pst <= 0
 	then writeln('Ivedete 0 arba neigiama skaiciu')
 	else if h <= 0
 	then writeln('Ivedete 0 arba neigiama skaiciu')
 	else
  	begin
   	p := (pst * 2) + pk;
   	Sson := p * h;
   	Spagr := pk * pst;
   	Svisas := Sson + (Spagr * 2);
   	v := Spagr * h;
   	WriteLn('Staciosios prizmes soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Staciosios prizmes pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Staciosios prizmes viso pavirsiaus plotas: ', Svisas:0:0);
   	WriteLn('Staciosios prizmes turis: ', v:0:0);
  	end;
end;
 2 :
begin
WriteLn('Iveskite krastines ilgi');
ReadLn(a);
Window (29, 10, 80, 25);
TextBackground (4);
Clrscr;
If a <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else
   	begin
   	Spagr := a * a;
   	Sson := 4 * (a * a);
   	Svisas := 6 * (a * a);
   	v := a * a * a;
   	WriteLn('Kubo soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Kubo pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Kubo viso pavirsiaus plotas: ', Svisas:0:0);
   	WriteLn('Kubo turis: ', v:0:0);
   	end;
end;
 3 :
begin
  	WriteLn('Iveskite pagrindo, plocio ir aukstines ilgius');
   	ReadLn(a, b, c);
   	Window (29, 10, 80, 25);
   	TextBackground (4);
   	Clrscr;
   	If a <= 0
   	then writeln('Ivedete 0 arba neigiama skaiciu')
   	else if b <= 0
   	then writeln('Ivedete 0 arba neigiama skaiciu')
   	else if c <= 0
   	then writeln('Ivedete 0 arba neigiama skaiciu')
   	else
   	begin
       	Sson := 2 * (a*c + b*c);
       	Spagr := a * b;
       	Svisas := Sson + (2 * Spagr);
       	v := Spagr * c;
       	WriteLn('Staciakampio gretasienio soninio pavirsiaus plotas: ', Sson:0:0);
       	WriteLn('Staciakampio gretasienio pagrindo plotas: ', Spagr:0:0);
       	WriteLn('Staciakampio gretasienio viso pavirsiaus plotas: ', Svisas:0:0);
       	writeLn('Staciakampio gretasienio turis: ', v:0:0);
   	end;
end;
 4 :
begin
WriteLn('Iveskite kugio pagrindo spindulio, kugio');
WriteLn('sudaromosios, aukstines ilgius');
ReadLn(r, l, h);
Window (29, 10, 80, 25);
TextBackground (4);
Clrscr;
If r <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else If l <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else If h <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else
begin
   	Sson := 3.14 * r * l;
   	Spagr := 3.14 * (r * r);
   	Svisas := 3.14 * r * (r + l);
   	V := (1/3) * 3.14 * (r * r) * h;
   	WriteLn('Kugio soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Kugio pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Kugio viso pavirsiaus plotas: ', Svisas:0:0);
   	WriteLn('Kugio turis: ', v:0:0);
end;
  end;
 5 :
begin
WriteLn('Iveskite pagrindo krastines, apotemos, aukstines');
WriteLn('ilgius');
ReadLn(pk, ap, h);
Window (29, 10, 80, 25);
TextBackground (4);
Clrscr;
If pk <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else if ap <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else if h <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else
	begin
 	p := pk * 4;
 	Sson := (0.5 * p) * ap;
 	Spagr := pk * 2;
 	Svisas := Sson + Spagr;
 	v := ((1 / 3) * Spagr) * h;
 	WriteLn('Taisyklingosios piramides soninio pavirsiaus plotas:', Sson:0:0);
 	WriteLn('Taisyklingosios piramides pagrindo plotas: ', Spagr:0:0);
 	WriteLn('Taisyklingosios piramides viso pavirsiaus plotas: ', Svisas:0:0);
 	WriteLn('Taisyklingosios piramides turis: ', v:0:0);
	end;
end;
 6 :
begin
WriteLn('Iveskite ritinio pagrindo spindulio, aukstines');
WriteLn('ilgius');
ReadLn(r, h);
Window (29, 10, 80, 25);
TextBackground (4);
Clrscr;
If r <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else if h <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else
   	begin
   	Sson := 2 * 3.14 * r * h;
   	Spagr := 3.14 * (r * r);
   	Svisas := 2 * 3.14 * r * (r + h);
   	V := 3.14 * (r * r) * h;
   	WriteLn('Ritinio soninio pavirsiaus plotas: ', Sson:0:0);
   	WriteLn('Ritinio pagrindo plotas: ', Spagr:0:0);
   	WriteLn('Ritinio viso pavirsiaus plotas: ', Svisas:0:0);
   	WriteLn('Ritinio turis: ', v:0:0);
   	end;
end;
 7 :
begin
WriteLn('Iveskite rutulio spinduli');
ReadLn(r);
Window (29, 10, 80, 25);
TextBackground (4);
Clrscr;
If r <= 0
then writeln('Ivedete 0 arba neigiama skaiciu')
else
   	begin
   	Spav := 4 * 3.14 * (r * r);
   	v := (4/3) * 3.14 * (r * r * r);
   	WriteLn('Rutulio sferos plotas: ', Spav:0:0);
   	WriteLn('Rutulio turis: ', v:0:0);
   	end;
end;
else writeln('Tokios figuros nera');
end;
writeln(' ');
writeln('Jei norite iseiti is programos rasykite "n",');
writeLn('jei norite testi spauskite ENTER');
Readln(tikr);
until tikr = 'n';
end.

Tai niekas nepadėsit? :)