решить
a:=5;
b:=20;
a:=a-b/2;
if a>b
then
c:=a+b;
else
c:=b-a
какое значение примет С

a=5-20/2 ----> a=-5

-5 меньше чем 20

значит c= b-a = 20 - (-5) = 25

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.