Исследование структур ветвления / 01)LAB1

{Џа®Ја ¬¬  ўлЇ®«­пҐв Їа®ўҐаЄг ­  ЇаЁ­ ¤«Ґ¦­®бвм
в®зЄЁ дЁЈгॠ§ ¤ ­­®© бЁб⥬®© ¤ўге га ў­Ґ­Ё©.
x*x + y*y <= 4 Ё /x/+/y/ >= 1}
program lab1;
uses crt;
var x,y,r :real;
begin
clrscr;
writeln ('Џа®Ја ¬¬  ўлЇ®«­пҐв Їа®ўҐаЄг ­  ЇаЁ­ ¤«Ґ¦­®бвм');
writeln ('в®зЄЁ дЁЈгॠ§ ¤ ­­®© бЁб⥬®© ¤ўге га ў­Ґ­Ё©.');
writeln ('x*x + y*y <= 4 Ё /x/+/y/ >= 1');
writeln ('ўўҐ¤ЁвҐ ўҐйҐб⢥­­лҐ x,y ');
readln (x,y);
if (sqr(x)+sqr(y)<=4) and
(abs(x)+abs(y)>=1) then
writeln ('в®зЄ  ЇаЁ­ ¤«Ґ¦Ёв дЁЈгаҐ') else
writeln ('в®зЄ  ­Ґ ЇаЁ­ ¤«Ґ¦Ёв дЁЈгॠ');
writeln ('17.9.2002');
writeln ('‚лЇ®«­Ё« бв㤥­в ЈагЇЇл 2342 - ЏЁа®Ј®ўбЄЁ©');
writeln ('‚« ¤Ёб« ў');
while not keypressed do
end.