Фирма приглашает сотрудника на работу с окладом 400$. за знание пк к окладу прибавляется - 15%, за знание иностранного языка - 20%. какова зарплата в рублях? напишите только формулу для нахождения зарплаты

X÷100=y
y×15=e
y×20=g
g+e+400=q
q$×Рубль

Х:100=у
у*05=е
у*20=g
y*20=g
g+e+400=q
q$*рубль

Задача 1. 
var
  a,b,c,x: integer;
begin
  readln(x);
  a:= x mod 10;
  x:= x div 10;
  b:= x mod 10;
  x:= x div 10;
  c:= x;
  if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет');
end.

Задача 2.
var 
  a,b: integer;
begin 
  readln(a,b); 
  If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln('да') else writeln('нет');
end.

Задача 3.
var
  x: real;
begin
  readln(x);
  if (x=<5) and (x>=1) then writeln('да') else writeln('нет');
end.

Задача 4. 
Справка:
Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних.
var 
  x: integer;
begin
  readln(x); 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s1:= s1+d 
  end; 
  for i:=1 to 3 do begin   
    d:= x mod 10;   
    x:= x div 10;   
    s2:= s2+d 
  end; 
  if s1=s2 then writeln('да') else writeln('нет')
end.

Задача 5.
Справка:
год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. 
var 
  x: integer;
begin 
  readln(x); 
  If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then
  writeln('да') else writeln('нет')
end.

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

   

   const N = 15;

   

   var

       A : array[1..N] of integer;

       i, mx, k : integer;

   

begin

   Randomize;

   {Генерация и печать массива}

   for i := 1 to N do begin

       A[i] := Random(50);

       write(A[i], ' ');

       if A[i] mod 2 = 1 then mx := A[i]

       end;

   writeln;

   

   

   for i := 1 to N do

       if A[i] mod 2 = 1 then

           if A[i] < mx then begin

               mx := A[i];

               k := i

               end;

   writeln('Число - ', mx, ', позиция - ', k);

end.

Результат выполнения программы: