1. Вычислить значения функции

y={x2 + 5, при x>3

x-8, при x< = 3

2. Написать фрагмент программ, подсчитывающий сумму только положительных из трех данных чисел

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.