Blame lazarus/console/sum/sum.lpr
|
Ivan Mahonin |
ab6427 |
program Project1;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
var
|
|
Ivan Mahonin |
ab6427 |
a: integer;
|
|
Ivan Mahonin |
ab6427 |
b: integer;
|
|
Ivan Mahonin |
ab6427 |
c: integer;
|
|
Ivan Mahonin |
ab6427 |
s: string;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
begin
|
|
Ivan Mahonin |
ab6427 |
Writeln('Enter A:');
|
|
Ivan Mahonin |
ab6427 |
Read(a);
|
|
Ivan Mahonin |
ab6427 |
Writeln('Enter B:');
|
|
Ivan Mahonin |
ab6427 |
Read(b);
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
c := a + b;
|
|
Ivan Mahonin |
ab6427 |
Writeln(a, '+', b, '=', c);
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
Readln(s);
|
|
Ivan Mahonin |
ab6427 |
Readln(s);
|
|
Ivan Mahonin |
ab6427 |
end.
|