Дано натуральное число. если в нём есть цифры a и b, то определить какая из них расположена в числе правее. если одна или обе эти цифры встречаются в числе несколько раз, то должны быть учтены самые правые из одинаковых цифр. (паскаль)

Var     a,b,n: string;     i: integer; begin write('введите n: '); readln(n); write('введите a: '); readln(a); write('введите b: '); readln(b); for i: =length(n) downto 1 do   if (n[i]=a) or (n[i]=b) then       begin     writeln('правее ',n[i]);     halt;     end; end.

program nechaeva97; uses crt; const n=7; var  i,t,max: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   max: =random(90)+10;   write (max: 5);   for i: =2 to n do      begin          t: =random(90)+10;           write (t: 5);           if max< t then max: =t;       end;   writeln();   writeln('максимальный элемент массива равен= ',max); end.

1. 

uses crt; var a,b,s,r: real; beginwrite('a: '); readln(a); write('b: '); readln(b); s: =a+b; if a> b then r: =a-belse r: =b-a; write('summa=',s,' raznost=',r); end.

 

uses crt; var a,b,s,r: real; beginwriteln('vvedi chisla'); readln(a,b); s: =a+b; if a> b then r: =a-belse r: =b-a; write('summa=',s,' raznost=',r); end.

 

uses crt; var a,b,s,r: real; {обозначение переменных}beginwriteln('vvedi chisla'); {вывод текста на экран}

readln(a,b); {чтение значений переменных}s: =a+b; {присваивание значения переменной суммы}if a> b then r: =a-b {условие для присваивания значения   переменной разности}else r: =b-a; write('summa=',s,' raznost=',r); {вывод текста на экран}end.

 

2.

uses crt; var a,b,c,p: real; beginwrite('a='); read(a); write('b='); read(b); write('c='); read(c); p: =a*b*c; write('proizv.=',p); end.

 

5.

uses crt; var t,m,k,d: real; beginwrite('t='); read(t); write('m='); read(m); write('k='); read(k); d: =k+60*m+3600*t; write('dlitelnost=',d,' sec'); end.

 

6. 

uses crt; var t,m,k,d: real; beginwrite('t='); read(t); write('m='); read(m); write('k='); read(k); d: =k+60*m+3600*t; write('dlitelnost=',d,' sec'); end.