var lat1,lat2, lungimea,latimea:Integer;
begin
latimea:=5;
lungimea:=12;
// aria lat1*lat2
// perimetrul lat1+lat2+lungime+latimea
write('lungimea=');
write(lungimea);
writeln('');
write('latimea=');
write(latimea);
writeln('');
writeln ('introduceti valoarea celor 2 laturi folositi numai numere diferite de 0');
write('valoarea lat1=');
readln(lat1);
write ('valoarea lat2=');
readln(lat2);
if (lat1 > 0)or( lat2>0)then
begin
write ('aria=');
writeln(lat1*lat2); //sa para mai interesant
write('perimetrul=');
writeln(lat1+lat2+lungimea+latimea);
end
else
writeln('valorile nu sunt corecte. Introduceti valori diferite de 0');
end.
