1)
varx:integer;y:real;beginwrite('x=');readln(x);if x>3 then y:=(x*2+5);if x<=3 then y:=x-8;writeln('y=',y);end.
2)
var s,a,b,c:real;beginwriteln('vvedite a,b,c');readln(a,b,c);s:=0;if a>0 then s:=s+a;if b>0 then s:=s+b;if c>0 then s:=s+c;write(s);end.
1)
var
x:integer;
y:real;
begin
write('x=');
readln(x);
if x>3 then y:=(x*2+5);
if x<=3 then y:=x-8;
writeln('y=',y);
end.
2)
var s,a,b,c:real;
begin
writeln('vvedite a,b,c');
readln(a,b,c);
s:=0;
if a>0 then s:=s+a;
if b>0 then s:=s+b;
if c>0 then s:=s+c;
write(s);
end.