program Kvadrat;

Var a, p, s: real; {може типа да е и integer}

Begin

write (‘Въведете дължинат на страната‘);

readln (a); {при изпълнението на програмата на променливата а се присвоява число въведено от клавиатурата}

S:=a*a; P:=4*a; {Изчисляване на лицето и периметъра}

writeln (‘S=‘,S,’ P=‘,P); {Извеждане на резултата}

End.