Нужна помощь. Чему будет равняться k после выполнения программы

ПЕРВОЕ ПРЕДЛОЖЕНИЕ КАЖДОГО АБЗАЦА СДЕЛАТЬ В СТИЛЕ ЗАГОЛОВОК 1 ,ВТОРОЕ В СТИЛЕ ЗАГОЛОВОК 2

затем поднялся на лифтена C этажей. Определите, на каком этаже он оказался.Программа получает на вход три целых числа: в первой строке записано число A, вовторой — B, в третьей — С. Число A не равно нулю и не превосходит по модулю 100, числа Bи С — положительные и не превосходят 100. Программа должна вывести одно целое число — номер этажа, на котором оказался Вася

then if x<5 then F:=0

else F:=x*x

else F:=4+x

Чему равен R после выполнения следующих операторов?

R:= -10; 0; 5

if R<0 then R:=R*R;

if R=0 then R:=R+10;

if R>0 then R:=R-100;

Чему будет равняться k после операции k:=length(‘мышь и клавиатура’)?

Чему будет равняться переменная tx после операции tx:=‘лесник’; delete(tx,4,3)?

Чему будет равняться переменная k после операции tx:=‘баобаб’; k:=pos(‘ба’,tx)?

Дополнить программу недостающими командами

Подсчитать количество букв “а” в тексте (русских и латинских; прописных и заглавных).

program zadacha1;

var t:string;

b:string[1];

n,k,i:integer;

Begin

writeln('Введите текст');

…………………………;

n:=length(t);

k:=0;

for i:=1 to n do

begin

b:=copy(t,i,1);

if ……………………………then k:=k+1;

end;

writeln('k=',k);

End.

if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8

2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4

for i:=7 to 12 do...;
Чему будет равна переменная s после выполнения фрагмента программы
s:=40;
for i:=15 to 19 do
s:=s+1
Дан шаблон цикла
forx:=M downto N do begin...end;
Чему равен шаг цикла?
Помогите пожалуйста