program Sample (input, output);var N1, N2, Sum: integer;begin writeln (‘Enter two numbers’); readln (N1, N2); Sum := N1 + N2; writeln (N1, ‘ Plus ‘, N2, ‘ Equals ‘, Sum); writeln (‘Enter another two numbers’); readln (N1, N2); Sum := N1 + N2; writeln (N1, ‘ Plus ‘, N2, ‘ Equals ‘, Sum);end.

Previous slide

Next slide

Back to first slide

View graphic version