program raf105;
var
s:string;
a,i:integer;
begin
write('Введите строку: ');
readln(s);
s:= lowercase(s);
for i:=1 to length(s) do
if s[i] = 'а'
then a+= 1;
writeln('В ведённой строке буква "а" встречается ',a,' раз(а)');
end.
<em><u>Язык PascalABC</u></em>
Навпростець. Геніально просто.
Var s:integer;
begin
writeln('Введите площадь квадрта');
readln(s);
writeln('Сторона квадрта = ',sqrt(s));
writeln('Периметр квадрта = ',sqrt(s)*4);
end.