Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  sd
Language: PASCAL
Code:
program Summa;
Var K,C,S:integer
begin
write('введите количество')
read(K);
write('введите сумму товара');
read(C);
S:=K*C;
write('сумма покупки s=',S);
end. 
Comments: