Составить программы для решения приведенных ниже задач отладить
их и проверить работу при различных исходных данных.

Program Turbo;uses CRT;VarN,S:integer;BeginS:=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.