Пример 1. Пусть дано некоторое целое число. Составить программу, которая выводит на экран монитора сообщение о том, какое это число: положительное либо отрицательное. И если это число положительное, уменьшает его в 2 раза, в противном случае возводит его в квадрат.
Решение:
program chislo;
var a:integer; r:real;
begin
write('а='); readln(a);
if a > 0
then
begin
writeln('положительное');
r:=a/2;
end
else
begin
writeln('отрицательное');