Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  triangulos.pas
Language: PASCAL
Code:
program triangulos; 
var l1,l2,l3:integer; 

begin l1:=0;l2:=0;l3:=0;
clrscr;

read(l1); 
read(l2); 
read(l3); 

if (l1=l2) and (l1=l3) and (l2=l3) then 
    begin 
        write('Triángula equilátero'); 
    end; 

if (l1<>l2) and (l1<>l3) and (l2<>l3) then 
    begin 
        writeln('Triángula escaleno');
    end
     else writeln('Triángula Isósceles');     

read(l1);
l1:=0;
     
end.
Comments: