var

a,b,c:integer;

begin

read(a,b);

c:=a+b;

write(c);

end.

program p1000;

var

x,y,z:integer;

begin

readln(x,y);

z:=x+y;

writeln(z);

end.

program ab;

var

a,b,c:real;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

program ab;

var

a,b,c:real;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

应该要用for循环吧

Program abi(input,output);

var

a,b,c:integer;

begin

read(a,b);

c:=a+b;

write(c);

end.

太水了

吓唬吓唬新手。。

var

x,y:integer;

tx,ty:string;

l1,l2,i,j,k:longint;

a,b:array[0..100]of shortint;

function max(a,b:longint):longint;

begin

max:=a;

if b>max then exit(b);

end;

begin

fillchar(a,sizeof(a),0);

fillchar(b,sizeof(b),0);

readln(x,y);

str(x,tx);

str(y,ty);

l1:=length(tx);

l2:=length(ty);

for i:=1 to l1 do val(tx[l1-i+1],a[i]);

for i:=1 to l2 do val(ty[l2-i+1],b[i]);

k:=max(l1,l2);

for i:=1 to k do

begin

a[i]:=a[i]+b[i];

a:=a+a[i] div 10;

a[i]:=a[i] mod 10;

end;

if a[k+1]>0 then inc(k);

for i:=k downto 1 do

write(a[i]);

end.

Program abi(input,output);

var

a,b,c:integer;

begin

read(a,b);

c:=a+b;

write(c);

end.

program PLUS;

var

a,b,c;integer

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

哧。。。

同学们尽情笑吧

#include

int main()

{

int a,b;

scanf("%d %d",&a,&b);

printf("\n%d",a+b);

return 0;

}

progrom Plus;

var

a,b,c:integer;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program Plus;

var a,b:longint;

begin

readln(a,b);

writeln(a+b);

end.

program plus (input,output);

var x,y,z:integer;

begin

readln(x,y);

z:=x+y;

write(z);

end.

var

x,y,c:longint;

begin

read(x,y);

c:=x+y;

write(c);

end.

program exp1;

var a,b,c:longint;

begin

readln(a,b);

c:=a+b;

writeln(c);

readln

end.

Accepted 是也~

program exp1;

var a,b,c:real;

Begin

readln(a,b);

c:=a+b;

writeln(c);

readln

End.