Может нужно писать в предпоследней строчке так:
.... z:0:3 ... -- вместо запятой должно стоять двоеточие
Просто не очень понятен вопрос....
Var
a,b : integer;
begin
writeln('vvedite 1 chislo')
readln(a)
writeln('vvedite 2 chislo)
readln(b)
writeln(a + b)
end.
Данное уравнение можно разбить на три строки (на фото красным цветом)
1) первая скобка(то есть содержимое до знака логического сложения V) и вторая скобка истинны
2) первая скобка истинна, вторая ложна
3) первая-ложь, вторая истинна
Далее составляем таблицу для четырех переменных (2^4=16 строк)
Выбираем в столбцах со стрелками ИСТИНА-ИСТИНА (то есть 1 - 1) Делаем вывод для первой строки нет решений
Для второй строки (1-0) получаем два решения Отмечены знаком "плюс"
Для третьей строки (0-1) также два решения Итого 4 решения
Sub aaa()
r = CDbl(InputBox("Введите радиус"))
Pi = 4 * Atn(1)
s = Pi * r ^ 2
c = 2 * Pi * r
MsgBox "S=" + CStr(s) + ", C=" + CStr(c), vbOKOnly
End Sub
Program chik;
var a:array[1..100]of integer;
i,r:integer;
begin
r:=0;
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i]>a[i+1])then r:=1;
end;
if(r=1)then writeln('не является возрастающей');
if(r=0)then writeln(' Яв.. возрас..');
end.