“PASCAL BACA” Kode Jawaban

PASCAL BACA

Program InputInPascal;

Var
number:integer;

begin
    write('Enter a number: ');
    readln(number);    // Waiting for input and storing it inside variable "number"
    
    writeln('The double of the number entered is: ',number*2);
End.

ALeonidou

Pascal Readln ()

Program PauseUntilKey;

Begin
    writeln('Press any key to continue...');
    
    readln();      //pause program until any key is pressed
    
    writeln('Program Resumed!');
End.

ALeonidou