Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  4
Language: PASCAL
Code:
program HelloWorld;
var k,c,s:integer;
begin
  write('Введите кол-во');
  Readln(k);
  write('Введите сумму товара');
  Read(c);
  s:=k*c;
  write('Сумма покупки S=',s);
end.          
          
Comments: