program pole_prostokata;

Var a,b,wynik: Real;

begin
  Write('Wpisz dlugosc prostokata: ');
  Readln(a);
  if (a=0) AND (a<0) then begin;
    Write('Nie mozna wykonac obliczen');
    Readln();
    end else if (a>0) then begin;
        Write('Wpisz szerokosc prostokata: ');
        Readln(b);
        end else if (b=0) AND (b<0) then begin;
            Write('Nie mozna wykonac obliczen');
            Readln();
            end else if (b>0) then begin;
                Write('Wynik: ');
                wynik:=a*b;
                Readln(wynik);
                end;
end.