Жёсткий диск, оперативная память, флэш память. и.т.д
Var
d, min, max, i: integer;
begin
readln(d);
min := d;
max := d;
for i := 1 to 6 do
begin
readln(d);
if min > d then min := d;
if max < d then max := d;
end;
writeln('max = ', max);
writeln('min = ', min);
end.
const
g = 10;
var
h,t:real;
begin
write('Write height in meters: ');
readln(h);
t:=sqrt(2*h/g);
writeln('Fall Time: ',t:0:1, ' seconds');
end.
Var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in ['А'..'Я'] then write(ord(s[i])-ord('А')+1,' ')
else write(ord(s[i])-ord('а')+1,' ');
<span>end.</span>