Program n_1;
var x, y, z, min: double;
begin
read(x, y, z);
if (x<=y) and (x<=z) then min:=x;
if (y<=x) and (y<=z) then min:=y;
if (z<=x) and (z<=y) then min:=z;
writeln(min:0:5);
end.
Если элементы 100% целочисленные, то double змени на integer, а также строку вывода замени на writeln(min);
Var s: int64;begins:=1;for var i:=10 to 20 dos:=s * i;write(s);end.
Всё это? и всё ны с начало видно
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>