// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var s:=ReadlnString('Введите текст').ToWords;
Writeln('Кол-во равно ',s.Where(x->x[1]='а').Count)
end.
<u><em>Тестовое решение:</em></u>
Введите текст Большой арбуз оказался зеленым, а маленький - красным
Кол-во равно 2
Информационный процесс - поиск информации
Конечно нет.
Например, схема телефона ничего не скажет о том, какая в нем записана информация. Карта местности ничего не скажет о том, какая там сейчас погода, схема проезда к кинотеатру ничего не скажет, о том, каково в данное время состояние дорог и т.п.
Program n1;
var x,y: real;
begin
readln(x,y);
if y=3*x-2 then write('лежит')
else write('не лежит');
end.