Блог 3. Задание 6.

Program Primer; 

var 

A,B: Integer; 

begin 

Write('Введите A: '); 

Readln(A); 

Write('Введите B: '); 

Readln(B); 

If A+B > 50 Then 

begin 

Readln(A); 

A := A + B; 

Write(A); 

end; 

else 

begin 

Readln(B); 

A := A - B; 

Write(A); 

end; 

Readln; 

end.

Program - раздел имени программы

Primer - название программы

var -  раздел описание переменных

A,B - название переменных

Integer - отношение переменных к целым числам

begin - раздел операторов

Write - список вывода данных на экран

Readln - оператор ввода, ввод данных с клавиатуры

If A+B > 50 Then  - "если" заданная функция для нахождения

A := A + B - определенние переменной (оператор присваивания)

 A := A - B - определенние переменной (оператор присваивания)

else - "если"

end - конец программы