var a,b:int64;
begin
read(a,b);
write(a+b)
end.
или нужно просто 2+2?
тогда
write(2+2)
program
cikl;
var
s,i,n:
integer;
writeln('vvedite
chislo n');
readln(n);
s:=0;
for i:=1 to
n do begin
s:=s+i;
end;
writeln('summa
=',s);
var a,b:int64;
begin
read(a,b);
write(a+b)
end.
или нужно просто 2+2?
тогда
begin
write(2+2)
end.
program
cikl;
var
s,i,n:
integer;
begin
writeln('vvedite
chislo n');
readln(n);
s:=0;
for i:=1 to
n do begin
s:=s+i;
end;
writeln('summa
=',s);
end.