после writeln() должно стоять ( ;)
и в конце не нужна readln
For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;
Var
s: string := 'Мышки ели шишки.';
a: set of char := ['а'..'я', 'ё'];
n, i: integer;
begin
s := LowerCase(s) + ' ';
for i := 2 to Length(s) do
if not (s[i] in a) and (s[i-1]='и') then
n := n + 1;
writeln(n);
<span>end.</span>
Ответ:
4
Объяснение:
Надо найти V2/V1.
x - кол-во символов. По условию x1=x2=x.
V2=x*16;
V1=x*4
Делим уравнения и получаем: V2/V1=4