Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tes
Language: PASCAL
Code:
program permainan;
var
  n1,n2,n3,n4:integer;
  h:string;

begin
     writeln('Nama : ');readln(nama);
     writeln('Tanggal Sekarang : ');readln(n1);
     writeln('Tanggal Lahir : ');readln(n2);
     writeln('Bulan Lahir : ');readln(n3);
     writeln('Tahun Lahir : ')readln(n4);

n4=:(n1+n3+n4);

writeln(h);
if h>=3 then writeln('Ramah')
else if h>=5 writeln('Jorok')
else if h>=10 writeln('tes');

end.          
          
          
          
Comments: