Вычислить А=К + 40, если значение К больше 15, но меньше 25. При других значениях К вычислить В=М+1. значение М задается

Введем следующие обозначения: m – заданная константа; k – число, значение которого будем вводить с клавиатуры во время выполнения программы; a, b – числа, которые надо найти в зависимости от значения введенного числа k. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const m=5;

var a, b, k: integer;

begin

writeln (\'vvedite chislo k\') ;

readln(k);

if (k>15) and (k<25)

then begin a:=k+40; writeln (\'a=\', a); end

else begin b:=m+1; writeln (\'b=\', b); end;

end.