Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


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

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

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
        write('Triángula escaleno')
    end;
    
repeat
until KeyPressed;


end.
          
          
          
          
          
          
          
          
          
Comments: