СРОЧНО РЕШИТЕ ПОЖАЛУЙСТА

Question

СРОЧНО РЕШИТЕ ПОЖАЛУЙСТА

---

Answer 1

1- хз;
Типы данных переменных :
А-char;
B-integer;
C-real;
D-boolean;
4.
program perimetr;
Var a, S: integer;
Begin
Readln(a);
S:=a^2;
End;
Writeln(S);
End.