Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  exercicio01
Language: PASCAL
Code:
PROGRAM exercicio01;
uses crt;
var num1: integer;
begin;
write('digite um numero: ');
read(num1);
if(num1 > 30)then
begin
writeln('Seu quintuplo:', num1*5);
end;
readkey;
end.     
          
          
          
Comments: