const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:3,' ')
end;
writeln;
write('x = ');
readln (x);
for i:=1 to n do if a[i]=x then writeln('A[',i,'] = ',a[i])
end.
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.
Program day;
var
dow: integer;
label main;
begin
write('введите число: ');
main:
readln(dow);
case dow of
1, 2, 3, 4, 5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
else:
begin
writeln('Не день недели! Повторите ввод.');
goto main;
end;
end;
readln;
end.