Извини,я бы помогла но я не разбираюсь в блоках,компьютерах,и т.д.
Var i,d:integer;
n:array[1..3] of integer;
begin
writeln('Введите диапазон( от 0 до ...)');
readln(d);
randomize;
for i:= 1 to 3 do
beginn[i]:=random(d+1);
writeln(n[i]);
end;
if n[1]= n[2]+n[3] then
writeln('YES')
else
writeln('NO');
end.<span>
</span>
Создаёшь кнопку (CommandButton),кликаешь по ней 2 раза,и вставляешь туда вот такое между 'Private sub и End' :
Shell("shutdown -s")
Пример:
Private Sub Command_Click()
Shell("shutdown -s")
End Sub