Для заданного высказывания определить, достаточно ли данных, чтобы определить его логическое значение:
1 если данных достаточно, то найти логическое значение высказывания;
2 если данных недостаточно, то показать, что возможны различные логические значения.

program название;

var a, b, s, p:integer;

begin

writeln ('Введите число a');

readln (a);

writeln ('Введите число b');

readln (b);

s:=a+b;

p:=a*b;

writeln ('Сумма чисел равна:', s);

writeln (Произведение чисел равно:', p);

end.

Объяснение:

/ - деление.

* - умножение.

sqrt - квадратный корень (всё что будет в корне заключается в скобки).

sqr - квадрат (всё что возводится в квадрат заключается в скобки).

В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).

Переменной s присваивается сумма переменных a и b.

Переменной p присваивается произведение переменных a и b.

Затем, выводится ответ.

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.