Дана сторона квадрата a. Найти его площадь S=a^2
На Паскале: var a, s: integer; begin writeln('Введите сторону а'); readln(a); s := a*a; writeln('Площадь квадрата равна ', s); end. заранее извиняюсь, если оно неправильно пойдет, со школы в паскале не работал