Question

Составить программу на нахождения периметра квадрата

Answer 1

Program zadacha;
uses crt;
var
    a,b:real;
Begin
         write('Введите сторону квадрата');
         Read(a);
         b:=4*a;
         Write('Периметр квадрата равен', b);
End.