Написать программу для вычисления прибыли по формуле P=S1-S1,где S1-сумма,вырученная от продажи,S2-сумма затрат. Если прибыль меньше или равна нулю вывести надпись "Производство нерентабельно".Значения S1,S2ввести с клавиатуры.

Uses crt;
var p,s1,s2:real;
begin
     write(Сумма,вырученная от продажи: );
     readln(s1);
     write(Сумма затрат: );
     readln(s2);
     p:=s1-s2;
     if p>0 then writeln (Прибыль: ,p)
        else writeln (Производство нерентабельно.);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.