1.if условие then команды end
Объяснение:
2.if условие then команды1 else команды2 end
if условие1
then команды1
else if условие2 then команды2
else if условие3 then команды3
...
else if условиеN+1 then командыN+1
else команды end;
3.if условие1 then команды1
elsif условие2 then команды2
elsif условие3 then команды3
...
4.else команды end;
5.If условие
then
begin
операторы;
end
else
begin
операторы;
end;
6.if условие
...
fi;
1.if условие then команды end
Объяснение:
2.if условие then команды1 else команды2 end
if условие1
then команды1
else if условие2 then команды2
else if условие3 then команды3
...
else if условиеN+1 then командыN+1
else команды end;
3.if условие1 then команды1
elsif условие2 then команды2
elsif условие3 then команды3
...
4.else команды end;
5.If условие
then
begin
операторы;
end
else
begin
операторы;
end;
6.if условие
...
fi;
Program Summa;
Uses Crt;
var n,s,i:longint;
begin
clrscr;
write('Введите N: ');
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('Сумма всех положительных чисел меньших чем N:',s);
readkey;
end.