Readln(a);
writeln(round(a * 4),' ',round(sqr(a)));
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.
1 вар
1
а)24
б)1392
2
А)1011000
Б)1100000101
2вар
1А)46
Б)909
2 А)1011011
Б)1100100100
"h = 49"
*ответ берется без кавычек