Const
n=5;
m=6;
var
i,j,s,z:integer;
a:array[1..n,1..m]of integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
readln(z);
i:=2;
while i<=n do
begin
for j:=1 to m do
if a[i,j]=z then s:=s+1;
i:=i+2;
end;
writeln('Ответ: ',s);
<span>end.</span>
Учитель
строитель
банкир
директор
учёный
президент
var
n, a, b, c, d: <em>real</em>;
begin
try
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
read(input, n, a, b, c, d);
write(output, trunc(a * b * 2 * n * c / d) + 1);
finally
try
close(input);
close(output);
except
end;
end;
end.
Если PascalABC то вот:
var a,b,p:real;
begin
Writeln('Введите число a,b');
readln(a,b);
p:=(a*b);
Writeln('p = ', p);
end.