помогите пожалуйста СРОЧНО!!!!!!

Question

помогите пожалуйста СРОЧНО!!!!!!

---

Answer 1

Номер 8.

var c,b:integer;
begin
c:=0;
b:=3;
if b>10 then writeln(c) else
begin
c:=c+b;
b:=b+2;
end;
end.

номер 9.

var a: integer;
begin
readln(a);
writeln('площадь:',a*a)
end.