const n=2;
m=2;
var
a:array [1..n,1..m] of integer;
i,j,p:integer;
k:boolean;
begin
k:=false;
write ('Enter p');
readln(p);
for i:=1 to n do begin
for j:=1 to m do begin
write('a[',i,',',j,']=');
read(a[i,j]);
end;
end;
for i:=1 to n do begin
if a[1,i]=p then k:=true;
end;
if k=true then write('YES') else write ('no');
readln;
readln
end.

const
n=10;
var
a:array [1..n] of integer;
i,min,k,j:integer;
begin
randomize;
min:=11000;
j:=0;
for i:=1 to n do begin
a[i]:=random(100)+1;
write(a[i]:3);
if a[i]<min then begin min:=a[i]; j:=i; end;
k:=a[n];
a[n]:=min;
a[j]:=k;
end;
for i:=1 to n do
write (a[i]:5);
readln
end.

var
f:text;
c:char;
k:integer;
begin
assign (f,'c:/1.txt');
reset(f);
c:=' ';
k:=0;
while not (eof(f)) do
begin
read (f,c);
if c=',' then inc(k);
end;
write (k);
close(f);
readln
end.

const n=10;
var a:array[1..n] of integer;
i,p: integer;
begin
randomize;
p:=0;
for i:=1 to n do begin
a[i]:=random(30)-10;
write(a[i]:3);
if a[i]<0 then p:=p+a[i];
end;
write(p);
readln
end.

const n=10;
m=10;
var 
a:array[1..n,1..m] of integer;
i,j,p:integer;
begin
randomize;
p:=0;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(30)-10;
write(a[i,j]:4);
if (a[i,j]<0) and (i mod 2=0) and (j mod 2=0)
then p:=p+a[i,j];
end;
writeln;
end;
write(p);
readln
end.

var s:string;
k:char;
p,i:integer;
begin
write('enter s ');
readln (s);
write('enter k ');
readln (k);
p:=0;
for i:=1 to length(s) do begin
if s[i]=k then inc(p);
end;
write (p);
readln
end.