Информатика, 9 класс, прошу, помогите!!!

А я напишу сам (без интернета) и проверю работу своих программ:

1) (Правда, непонятно, в какой раскладке и в каком регистре (т.е. заглавная или нет буква) символ - ладно, напишу в обеих раскладках и в обоих регистрах):

 Program P1; 

uses crt; 

var s: string; 

begin 

clrscr; 

writeln ('Введите с клавиатуры строку, после чего нажмите клавишу Enter.'); 

write ('Введите строку: '); 

readln (s); 

if (s[1]='A') or (s[1]='А') or (s[1]='a') or (s[1]='а') then writeln ('Является.') else writeln ('Не является.'); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

2)

 Program P2; 

uses crt; 

var i, n: integer; 

    s: string; 

begin 

clrscr; 

writeln ('Введите с клавиатуры строку, после чего нажмите клавишу Enter.');  

write ('Введите строку: ');  

readln (s); 

n:=0; 

for i:=1 to length (s) do if (s[i]>='0') and (s[i]

Два в одном... Обе задачки в программе PascalABC:

Var St : string;
Col : integer;

begin
St := 'A на календаре 2023 год...';
Col := 0;
if ( St[1] = 'A') or (St[1] = 'a') or (St[1] = 'А') or (St[1] = 'а') then
WriteLn ( ' Первая буква - ', St[1]) else WriteLn ( ' Нет, первая буква другая...' );
for var i := 1 to Length (St) do
if ((Ord (St[i]) > 47) and (Ord (St[i]) < 58)) then Col := Col+1;
WriteLn (' Количество цифр равно ', Col);
end.

Ответ с интернета:1.var s: string;
begin
write('Введите строку: ');
readln(s);
if s[1] = 'A' then
writeln('Первый символ строки - А')
else
writeln('Первый символ строки не А');
end.
2.var s: string;
i, count: integer;
begin
write('Введите строку: ');
readln(s);
count := 0;
for i := 1 to length(s) do
if (s[i] >= '0') and (s[i] <= '9') then
inc(count);
writeln('Количество цифр в строке: ', count);
end.