Дана строка. надо написать программу, определяющую, какой символ "а" или "б" встречается чаще. (паскаль)

Объяснение:

Var a,b,x,k,j : Integer;

Begin

Read (a);

Read(b);

Read(x);

While x<>0 do

Begin

If x mod 10=a then k:=k+1;

If x mod 10=b then j:=j+1;

X:=x div 10;

End;

If k=j then WriteLn('одинаковое количество ');

If k>j then WriteLn(символов а больше)

Else

WriteLn (символов b больше)

1.
var a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a-10 else a:=a+10;
writeln('a = ',a);
end.

Пример:
Введите число: 5
a = -5

2.
var a,b,p:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a*b<0 then p:=-2*a*b else p:=3*a*b;
writeln('p = ',p);
end.

Пример:
Введите два числа: 
-3 -8
p = 72

3.
var a,b,r:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('r = ',r);
end.

Пример:
Введите два числа: 
25 48
r = 23

4.
var r:integer;
begin
writeln('Введите рост: ');
readln(r);
if r>180 
 then writeln('высокий')
 else if r=180 then writeln('нормальный') else writeln('низкий');
end.

Пример:
Введите рост: 
160
низкий

Решение на Pascal (если не подходит - скажите):

program pediatr;
var
  h_old, h_new, w_old, w_new: integer;
begin
  write('введите рост ребёнка месяц назад (в см): ');
  readln(h_old);
  write('введите рост ребёнка сейчас (в см): ');
  readln(h_new);
  write('введите вес ребёнка месяц назад (в г): ');
  readln(w_old);
  write('введите рост ребёнка сейчас (в г): ');
  readln(w_new);
  if ( (h_new - h_old) >= 3 ) and ( (w_new - w_old) >= 700) then
    writeln('Ваш ребёнок развивается хорошо')
  else
    writeln('Ваш ребёнок меньше нормы');
end.