Відповідь:

var

 S: integer;

 Sk: integer;

begin

 S := 0;

 write('Введите значение для переменной Sk: ');

 readln(Sk);

 if (Sk > 0) then

 begin

   S := Sk;

 end;

 writeln('Результат: ', S);

end.