Вычислить А=К + 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.