параллелограмм в Дельфи)

[aiktz]

очень нужна ваша помощь....как записать эту программу в Дельфи, которая рисует параллелограмм?

Program x;
Var
a,b,c,d:real;
v1,v2,v3:boolean;
begin
WriteLn('vvedi a,b,c,d > 0');Read(a,b,c,d);
If ((a>0) and (b>0) and (c>0) and (d>0)) then
Begin
v1:=((a=b) and (c=d));
v2:=((a=c) and (b=d));
v3:=((a=d) and (b=c));
If (v1 xor v2 xor v3) then
Write('postroenie vozmojno')
Else
Write('postroenie ne vozmojno');
End
Else Write('dannie ne verni')
End.

[W0LF]

которая рисует параллелограмм?

Нечего она не рисует, просто пишет вам возможно построить параллелограмм с заданными вами параметрами...

Да и вроде паскаль это чистой воды, если в Delphi, то вам надо создавать Console Application... (и не удаляйте {$APPTYPE CONSOLE}!)