s, o:real;

clrscr;
write('Zadaj stranu stvorca: ');
readln(s);
o:= 4 * s;
writeln;
writeln('Obvod stvorca je ', o:5:2);
readln;