Верны ли следующие суждения о мышлении? А. Мышление — основа познавательной деятельности человека.

верны оба суждения

USES Crt;
VAR
  x: byte;
  xx: REAL;
BEGIN
  READ(x, xx);
  CASE x OF
    1: BEGIN
         WRITELN('b=', xx*sqrt(2):0:4);
         WRITELN('h=', xx/sqrt(2):0:4);
         WRITELN('S=', sqr(xx)/2:0:4);
       END;
    2: BEGIN
         WRITELN('a=', xx/sqrt(2):0:4);
         WRITELN('h=', xx/2:0:4);
         WRITELN('S=', sqr(xx)/4:0:4);
       END;
    3: BEGIN
         WRITELN('a=', xx*sqrt(2):0:4);
         WRITELN('b=', xx*2:0:4);
         WRITELN('S=', xx:0:4);
       END;
    4: BEGIN
         WRITELN('a=', sqrt(xx*2):0:4);
         WRITELN('b=', 2*sqrt(xx):0:4);
         WRITELN('h=', sqrt(xx)/2:0:4);
       END;
  END;
  READLN;
  READLN
END.

uses crt;
var a,h,s,rv,ro:real;
    w:char;
begin
repeat
clrscr;
writeln('Укажите номер известного элемента');
writeln('1 - сторона');
writeln('2 - высота');
writeln('3 - площадь');
writeln('4 - радиус вписанной окружности');
writeln('5 - радиус описанной окружности');
writeln('Другое - выход');
readln(w);
case w of
'1':begin
    repeat
    write(':Введите длину стороны a>0 a=');
    readln(a);
    until a>0;
    h:=sqrt(3)*a/2;
    s:=sqrt(3)*sqr(a)/4;
    rv:=sqrt(3)*a/6;
    ro:=2*rv;
    end;
'2':begin
    repeat
    write('Введите высоту h>0 h=');
    readln(h);
    until h>0;
    a:=2*h/sqrt(3);
    s:=sqrt(3)*sqr(a)/4;
    rv:=sqrt(3)*a/6;
    ro:=2*rv;
    end;
'3':begin
    repeat
    write('Введите площадь s>0 s=');
    readln(s);
    until s>0;
    a:=sqrt(4*s/sqrt(3));
    h:=sqrt(3)*a/2;
    rv:=sqrt(3)*a/6;
    ro:=2*rv;
    end;
'4':begin
    repeat
    write('Введите радиус вписанной окружности rv>0 rv=');
    readln(rv);
    until rv>0;
    a:=6*rv/sqrt(3);
    h:=sqrt(3)*a/2;
    s:=sqrt(3)*sqr(a)/4;
    ro:=2*rv;
    end;
'5':begin
    repeat
    write('Введите радиус описанной окружности ro>0 ro=');
    readln(ro);
    until ro>0;
    a:=3*ro/sqrt(3);
    h:=sqrt(3)*a/2;
    s:=sqrt(3)*sqr(a)/4;
    rv:=sqrt(3)*a/6;
    end;
end;
clrscr;
writeln('Сторона=',a:0:2);
writeln('Высота=',h:0:2);
writeln('Площадь=',s:0:2);
writeln('Радиус вписанной окружности=',rv:0:2);
writeln('Радиус описанной окружности=',ro:0:2);
writeln('Нажмите Enter');
readln;
until not(w in ['1'..'5'])
end.