Синформатикой надо составить программу для паскаль авс. рабочий в первом месяце получил зарплату 8000 рублей ,а во втором месяце на 30% больше ,чем в первом .вывести на экран сколько зарплаты он получит за два месяца

Var x,s:integer;                                             (x*30/100)- расчёт процентов     
begin
x:=8000;
s:=x+x+(x*30/100);
writeln ('s=',s);
end,