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.