Составить алгоритм и программы в магазине купили x тетрадей по 40 рублей за шт., и y карандашей по 12 рублей за шт. найти всю стоимость

Program pr_1;
var x,y,s,k,t:integer;
begin
k:=0;
s:=0;
t:=0;
readln(x,y);
t:=t+x*40;
k:=k+y*12;
s:=s+t+k;
write(s);
end.