Помогите пожалуйста, никак разобраться не могу 1) составить программу вычисления…

Видимо все-таки 1) x=p*k+n где p,k,n-любые числа 1) Program prSum; Uses Crt; var res,p,k,n: real; begin clrscr; write ('Введите p: '); readln (p); write ('Введите k: '); readln (k); write ('Введите n: '); readln (n); rez: =(p*k)+n; writeln ('Результат: ', rez); end. 2) Program Delenie; Uses Crt; var y: real; x,k: integer; begin clrscr; write ('Введите k: '); readln (k); write ('Введите x: '); readln (x); if (x=0) then x: =1; {на ноль делить нельзя! } if (k=0) then k: =1; {так как к не должен быть равен нулю} y: =k/x; writeln ('Результат: ', y); end.