Программа 1:

program TwoNumbers;
var
num1, num2, sum: integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);
sum := num1 + num2;
if sum > 100 then
sum := sum div 2
else
sum := sum * 2;
writeln('Результат:', sum);
end.

Программа 2:

program FunctionValue;
var
x, y: real;
begin
writeln('Введите значение x:');
readln(x);
if x > 0 then
y := 5 * x
else
y := x - 2.5;
writeln('Значение функции y = ', y);
end.

Программа 3:

program CheckHeight;
var
height: integer;
begin
writeln('Введите рост человека в см:');
readln(height);
if height > 180 then
writeln('ВЫСОКИЙ')
else
writeln('НЕ ОЧЕНЬ ВЫСОКИЙ');
end.