دروس في لغة الباسكال

Program TheTotal (input, output);

{This program find sum of two integer number}



Var

A, B, Total: integer;



Begin



Write (‘Enter two integer numbers to be add: ‘);

Readln (a, b);

Total: = a+b;

Writeln (‘The sum of’, A,’and’, B,’is’, Total);



End





{This program find sum of two integer num

End