Написать программу S=a*a помогите пожалуйста !!

Question

Написать программу S=a*a помогите пожалуйста !!

Comments

Нужно ввести с клавиатуры a и чтобы на экран выводилась S?

Answer 1

Ответ:

var s, a:Integer;

begin

readln(a);

s:=sqr(a);

write(s);

end.

Comments

var a:Integer;
begin
readln(a);
write('S = ', sqr(a));
end.

---

Второй вариант