Помогите пожалуйста составить похожую программу 35 балловСрочноооооо!!!! ​

Question

Помогите пожалуйста составить похожую программу 35 балловСрочноооооо!!!! ​

---

Answer 1

Lazarus там можно сделать

Answer 2

Ответ:

program idetwo;

var a, b,c : integer;

begin

read(a);

if a>=10 then c:=1

else c:=2;

case c of

1:b:=sqr(a);

2:b:=10-a;

end;

writeln(b);

end.

Объяснение: