ан периметр

Ответ от Ra[гуру]
На любом, так на любом:
тикль:
puts stdout "сторона квадрата? " nonewline
puts "периметр: [expr [gets stdin] * 4]"
С++:
#include <iostream>
int main() {
double a;
std::cout << "сторона квадрата? "; std::cin >> a;
std::cout << "периметр: " << a * 4 << std::endl;
}
pascal:
var
a: real;
begin
write('сторона квадрата? ');
read(a);
writeln('периметр: ', (a * 4):0:2);
end.