Boolean15. Даны три целых числа: А, В, С. Проверить истинность высказыва- ния: «Ровно два из чисел А, В, С являются положительными».
​

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.