Это имя Потап 1я буква П и 5я П
//PascalABC.NET
begin
write('Длина меньшей стороны: ');
var a := ReadlnReal;
writeln('Длина диагонали равна ', sqrt(a*a+ 9*a*a):8:3)
end.
По-моему понятно написал. Разберёшь мой почерк?
Var
input, output: text;
x,k: integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
k := 0;
read(input, x);
while x <> 0 do
begin
k := k + 1;
read(input, x)
end;
write(output, k);
close(input);
close(output)
end.