Ввести два числа. если их сумма больше100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

программа для паскаля

uses crt;

var a,b,s: real;

begin

clrscr;

write ('a='); read (a);

write ('b='); read (b);

s: =a+b;

if s> 100 then writeln (s/2)

else writeln (2*s);

end.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.