Вычислить А=К + 40, если значение К больше 15, но меньше

Введем последующие обозначения: 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 (kgt;15) and (klt;25)

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

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

end.