Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>
Парус, яблоня, действие, строфа, запах
//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале
const
max = 12;
var N,i,j:byte;
sum:integer;
ar:array[1..max, 1..max] of integer;
begin
writeln('Вычислить сумму диагональных элементов квадратной матрицы');
write('Введите размер матрицы N = ');
readln(N);
for i:=1 to N do begin
for j:=1 to N do begin
ar[i,j]:=random(-12,12);//любые числа
write(ar[i,j]:6);
end;
writeln();
end;
sum:=0;
for i:=1 to n do
for j:=1 to n do
if ( i = (n-j+1) ) or ( i = j ) then
sum:=sum+ar[i,j];
writeln('Сумма sum = ', sum);
end.
Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>