var i,s:integer;
begin
for i:=1 to 11 do s:=s+i*i;
writeln (s)
end.
В16-й:
6A2FDC67BF92D53894BF5FA1FA4D7A71452F3F70D9A98D35
В двоичную можешь перевести с помощью инженерного калькулятора на компе, долго слишком С:
2:
Pascal
////////////////
var
name_file: String;
begin
writeln('Введите имя файла');
readln(name_file);
writeln(name_file, '.exe');
readln;
end.