Uses graphabc;
begin
setwindowsize(400,190);
rectangle(20,20,380,70);
setbrushcolor(clred);
rectangle(20,70,380,120);
setbrushcolor(clblue);
rectangle(20,120,380,170);
end.
Program kol_vo_elementov;
var a, b, p:real;
begin
writeln('Введите число');
readln(a);
b:=sqrt(a);
p:=4*b;
writeln('b=',b);
writeln('p=',p);
end.
Таблица истинности .....................