program programm perimetro rombo; {$APPTYPE CONSOLE} uses SysUtils; var lato,perimetro:integer; begin writeln('programma perimetro rombo'); write('inserisci il lato '); readln(lato); if lato>0 then begin perimetro:=lato*4; write('il perimetro e'' ',perimetro); end else write('problema impossibile'); readln; end.