fork download 
  1. program rectangles;
  2. var A,B,C :integer;
  3.     risposta : longint;
  4. begin
  5. 	readln(A);readln(B);readln(C);
  6. 	if (A <> B) and (A <> C) and (B <> C) then risposta:=6
  7. 	            else
  8. 	              if (A=B) and (B=C) then risposta:=1
  9. 	                                  else 
  10. 	                                    risposta:=3;
  11.    writeln (risposta);	                                  
  12. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin 
4
9
5
stdout 
6
https://ideone.com/A7r05X
language:
Pascal (fpc 3.0.4)
created:
10 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!