площадь прямоугольника и треугольника.

[скромняшка]

VAR  dlina, shirina, S1,S2, a,b: real;
	 begin
		writeln(dlina, shirina);
		readln(a,b);
		S1:=dlina*shirina;
		S2:=S1/2;	
		Writeln(S1:6:5);
		writeln(S2:5:2);
                       end.

программа не выводит результата.помогите пожалуйста исправить ошибку.

[Mad_Cat]

VAR dlina, shirina, S1,S2: real;
begin
writeln('dlina', ' shirina');
readln(dlina, shirina);
S1:=dlina*shirina;
S2:=S1/2;	
Writeln(S1:6:5);
writeln(S2:5:2);
readln;
end.

[скромняшка]

Спасибо большое!!!