Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  esercizio1
Language: PASCAL
Code:
program esercizio1;
var x,y:integer;
begin
       writeln('inserire il numero.');
       readln(x);
       if x mod 2 = 0
           then y:=2*x
           else y:=3*x;
       writeln('risultato: ' y:6);
       readln;
end.
Comments: