8 lines
195 B
ObjectPascal
8 lines
195 B
ObjectPascal
var a, b, c, d: real;
|
|
begin
|
|
writeln('ïåð÷àòîê, ïîðòôåëÿ, ãàëñòóêà, Èñõîäíàÿ ñóììà');
|
|
Readln(a, b, c, d);
|
|
if d-a-b-c >= 0 then writeln('Âàø ñäà÷', d-a-b-c)
|
|
else
|
|
writeln('Íå õâàòàòü', d-a-b-c)
|
|
end. |