var
i,z,y,x: integer; // объявление переменных
begin // начало программы
writeln('Введите числа: '); // Вывод сообщения
readln(x,y); // Ввод чисел х и у с клавиатуры
while i <> y do // Повторять цикл пока i не будет равно y
begin // Вход в цикл
z:=z+x; // z = z + x (при первом шаге получается 0 = 0 + х)
i:=i+1; // Увеличиваем счетчик цикла на 1
end; // Выход из цикла
write(z); // Вывод z (произведение х и у)
end. // Конец программы
K:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then k:=k+1;
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
#010101 цвет..............
Не знаю как для других,для меня сложная задача,поэтому сделал её как смог