Вычислить указанные величины, зависящие от условий, с логических функций

var x, y:real;

begin

readln(x);

if (x<=-4) or (x>=4) then

y:=0

else if (x>-4) and (x<0) then

y:= -sqrt(4-(x+2)*(x+2))

else if (x>=0) and (x<4) then

y:=sqrt(4-(x-2)*(x-2));

write(y);

end.

австрия - вена

бельгия - брюссель

болгария - софия

венгрия - будапешт

испания - мадрид

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.