Static int Change (int I) {
return (I> 0) ? I+1 : I;
}
Program tovar;
Var s, n, c: integer;
begin
Write ('Сколько единиц товара закупили?');
Read (n);
Write ('Какова цена товара?');
Read (c);
s:=c*n;
Write ('Стоимость общей партии товара равна', s, 'руб.');
end.
формула начинается со знака =
Последовательный порядок выполнения действий и наличие в каждой программной строке только одного оператора (т.е. без ветвления и циклов)