7 lines
96 B
ObjectPascal
7 lines
96 B
ObjectPascal
program j;
|
|
var z: integer;
|
|
begin
|
|
writeln('Ââĺäčňĺ Z');
|
|
readln(z);
|
|
writeln((z+12*z)/sqr(z));
|
|
end. |