Линейные структуры. Написать программу вычисления стоимости некоторого количества (по весу) яблок. Программа : 'Введите цену яблок за килограмм '

Программа :

program pr1;

var k,S,A:real;

begin

write('Введите цену яблок за килограмм ');

readln(S);

write('Введите в...