Задания Delphi

[AskaS]

Здравствуйте, помогите с заданиями в Delphi
1. Даны три переменные a, b и c. Изменить значения этих переменных так, чтобы в a хранилось значение a+b, в b хранилась разность старых значений c−a, а в cхранилось сумма старых значений a+b+c. Например, a=0, b=2, c=5, тогда новые значения a=2, b=3 и c=7.
2.Дано два числа. Если хотя бы одно из них больше 30, то вывести yes, иначе no.
3. Даны целое число k, 1<k<180 и последовательность цифр 10111213...9899, в которой выписаны подряд все двузначные числа. Определить k-ю цифру в этой последовательности.
раньше изучала Паскаль, а теперь в институте делфи
Или может, кто умеет переводить коды
На Паскале это так выглядит:
1 задание

program n1;
var
  A, B,C,  v,k: real;

begin
  write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
  write('Введите число C: ');
  readln(C);
  v := C;
  k := A;
  C := A+B+C; 
  A :=A+B;
  B := V-k;
  writeln('Результат:');
  writeln(' A = ', A, ', B = ', B, ', C = ', C);
  readln
end.

2 задание

program n2;
var a,b:integer;
begin
write('Введите число A: ');
  readln(A);
  write('Введите число B: ');
  readln(B);
if (a>30)or(b>30)
 then writeln('Yes') else writeln('No');
end.

3 задание

program n3;
var
k,x:integer;
begin
write('Введите число k: ');
readln(k);
x:=((k-1) div 2)+10;
if (k mod 2<>0) then
x:=x div 10 
else x:=x mod 10;
writeln(k,'-я цифра: ',x)
end.

[Аватар]

В консольном делфийском приложении тоже так, разве что после program добавить
{$APPTYPE CONSOLE}

[AskaS]

Спасибо