Запись алгоритмов в Pascal

Полное
if условие then begin
оператор 1
end
else оператор2;
Например:
если А>C тогда D:=A иначе D:=C
Ветвление

Неполное
If условие then оператор1;
Например
если B>C то D:=B
Ветвление

program test;
var x,y:integer;
begin
writeln('Введите число 1');
read(x);
writeln('Введите число 2');
read(y);
if x>y then write(‘Наибольшее число’,x)
else
write(‘Наибольшее число’, y);
end.
Даны два числа вывести наибольшее их них.

program chetno;
var x:integer;
begin
writeln('Введите число');
read(x);
if (x mod 2)=0 then write('Число четное')
else
write('Число не четное');
end.
Проверить является ли число четным.

С параметрами
форма записи:
for I:=m1 to m2 do
Begin
оператор;
End;
Если шаг отрицательный вместо do пишется downto
Цикл
I – параметр цикла,
m1,m2 – начальное и конечное значения параметра цикла

С предусловием
форма записи:
while условие do
Begin
операторы;
End;

С постусловием
форма записи:
repeat
список операторов
until условие;

Program zadacha;
var n,s,i:integer;
Begin
write(‘введите натуральное число n=’);
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(‘сумма=’,s);
End.
Вычислить S=1+2+3+ … +n