Сист по нужно для начала работы с устройством
Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.
1) 1, 2, 3 (но не только на винчестере), 6
2) 2, 4 (но экстрималы и по 2 кидают), 5 =)
WIndows, MacOS, Linux, IOS, Android, IBM, DOS, El Capitan, sun os, microdos