Program Chiziqli jarayon; var a, b, c: real; begin

program Chiziqli jarayon;

var a, b, c:real;

begin

readln(a,b);

c:=a+b;

writeln(c);

end.

2-masala

program Takrorlanuvchi jarayon;

var i, n, S1:integer;

begin

readln(n);

S1:=0;

for i:=1 to n do

begin

S1:=S1+i;

end;

writeln(S1);

end.

3-masala

program Tarmoqlanuvchi;

var a, b, c, d, x, x1, x2:real;

begin

readln(a, b, c);

d:=b*b-4*a*c;

if d>=0 then

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln(x1, x2);

end

else

writeln('tenglama haqiqiy yechimga ega emas');

end.