Bitcoin Forum

Other => Off-topic => Topic started by: tarsua on November 17, 2015, 07:51:47 PM

Title: pascal
Post by: tarsua on November 17, 2015, 07:51:47 PM

find the error

Code:

Program Lesson1_program3;
Var    WriteIn

     Num1, Num2, Sum : Integer;

Begin
 Write ('Input Number 1:');
 ReadIn(Num1);
 WriteIn('Input number 2:');
 ReadIn(Num2);
 Sum:= Num1 + Num2;
 WriteIn(Sum);
 ReadIn;
End.

Title: Re: pascal
Post by: dragansk1 on November 18, 2015, 12:02:14 AM

My favorite programming language. I like it. So I found your error.

Code:


program Lesson1_program3;
var

     Num1, Num2, Sum : integer;

begin
 Write ('Input Number 1:');
 Read(Num1);
 Write('Input number 2:');
 Read(Num2);
 Sum:= Num1 + Num2;
 Write(Sum);
 Read;
end.

Can you run it? I dont have compiler.