procedure vvod(var a, b, c: integer);
begin
readln(a);
readln(b);
readln(c);
end;
procedure min(const a, b, c: longint; var d: longint);
var
i: longint;
begin
d := a;
if d > b then
d := b
else
if d > c then
d := c;
end;
procedure sum(const ch:longint;var z:longint);
begin
z := z + ch;
end;
var
a, b, c, d, f, z: integer;
const nn=10;
var
a:array [1..nn] of integer;
i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to nn do readln(a[i]);
for i:=1 to nn do
begin
if a[i] mod 2 =0 then s:=s+1;
if a[i] mod 10 =5 then k:=k+1;
end;
writeln('Четных элементов: ',s);
writeln('Элементов оканчивающихся на 5: ',k);
end.
Величина y прямо пропорциональна величине x, значит у=кх, 6,4=4*1,6, к=4
<span>x: 0,8 1,6 .... 15 2,4
y : 3,2... 6,4 60 ..... 9,6
</span>
Это скрипт bash (командная оболочка UNIX).