program calculation;
uses crt;
var a,b, c, d, P:integer;
begin
clrscr;
writeln('Enter  1 number');
readln(a);
writeln('Enter 2 number');
readln(b);
writeln('Enter  3 number');
readln(c);
writeln('Enter  4 number');
readln(d);
if (a=b)and(b=c) and (c=d)  then
  begin
       P:=a+b+c+d;
       writeln('the is romb, P=',P);
  end
else
  begin
       writeln('the is not romb');
  end;
readKey;
end.