Нажать правой кнопкой мыши на цвет в палитре, который должен стать фоном, и стереть ластиком всё
Var
S, X, a, b, R: Real;
C: String;
Begin
WriteLn('Chto budem vichislat');
ReadLn(C);
if C = 'O' then begin
WriteLn('Radius');
ReadLn(R);
S:= Pi*sqr(R);
end;
if C:= 'T' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
WriteLn('Vvedite 2 katet);
ReadLn(b);
S:= 1/2 * a * b;
end;
if C:= 'K' then begin
WriteLn('Vvedite 1 katet);
ReadLn(a);
S:= sqr(a);
end;
WriteLn('Ploshad = ');
ReadLn(S);
end.
Смотри сначало у тебя заходит k=1 и выполняется вычисления s=150-12=138 потом программа говорит перейти к следующей к=2 и снова идёт алгоритм s=138-12=126,k=3 s=126-12=114 , k=4 s=102 ,k=5 s=90 , k=6 s=78,k=7 s=66, k=8 s=54, k=9 s=42, k=10 s=30 т.к больше к нет , то он выведит ответ
1)256×4×64=65536
2)16×32×512=262144
3)10×2^10×8=1600
4)2^5×12×32=3840
5)64×1/16×256=1024
6)32×8×1/4=512
вот так