var
P, a: real;
begin
write('Введите сторону a: ');
readln(a);
P := 4 * a;
writeln('Значение периметра = ', P);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
P, a: real;
begin
write('Введите сторону a: ');
readln(a);
P := 4 * a;
writeln('Значение периметра = ', P);
end.