информатика пж !!!!!!

1. Раздел меток (label)

Раздел констант (const)

Раздел типов (type)

Раздел описания перемененных (var)

Раздел процедуры функции (procedure function)

2. Условный оператор IF

Синтаксис

if(Условие) then ОП1 else ОП2;ОП последующий за условным.

3. Readln(u,r)

4.

program n1;uses crt;

var num : integer;

num2 : real;

begin

textbackground(2);

textcolor(4);

readln(num);

if (num mod 2 = 0) then num2 := num / 2

else num2 := num * 3;

writeln(num2);

end.

1.

begin

end.

2. if alt;b then ... else if agt;b then ...

3. Б)

4. var

a:integer;

begin

readln (a);

if a mod 2 gt; 0 then writeln (a*3) else writeln (2/2);

readln;

end.