Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
<u>В состав алфавита языка Паскаль входит:</u>
Символы для составления переменных-
<em>латинские(строчные, прописные)</em>
<em> символ "_"</em>
<em> цифры (0..9)</em>
<span>Символы разделители (пробельные символы)
Составные символы - <span><em>особенная группа символов, которая </em>
<em> воспринимаются компилятором как </em>
<em> один</em></span><em> символ "<="</em></span><em>, ":=",">=", "..", "//" "<>" "(*" "*)"</em>
Зарезервированные слова- <span><em>слова, несущие определенное </em>
<em> смысловое значение для компилятора</em>
Спец-символы- <em>символы, которые предназначены для построения </em>
<em> конструкций языка, в Паскале это:
</em><em> ' - + / * : ; = { } [ ] ( ) $ и т.п</em></span><span>
<u>На самом деле их больше, но это основные.</u></span>
Из 10 л ведра переливаем в 6 л ведро . мы знаем что в первом осталось 4 л. × 3 и : 2