Turbo Pascal. Составить программу. Вычислить значение функции:

var k1,k2,k3,y:integer;beginwrite('k1 = ');readln(k1);if k1>5  then y:=1 else if k1=5        then          begin         write('k2 = ');         readln(k2);         y:=k1*k2;         end       else         begin         write('k3 = ');         readln(k3);         y:=k3*k3;         end;writeln('y = ',y);end.Пример:k1 = 3k3 = 7y = 49